Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

This commit is contained in:
2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
+107
View File
@@ -0,0 +1,107 @@
<?xml version="1.0" encoding="UTF-8" ?>
<Project defaultApplication="400358049" gstVersion="31408" version="3.3">
<Settings>
<DynamicProperties version="2">
<DynamicProperty description="Accent color (Android 5.0 and later)" initialValue="#9575CD" isDefaultInherited="false" isHidden="false" label="Accent color" name="gma-accent-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Action bar text color (Android 5.0 and later)" initialValue="#EBEBEB" isDefaultInherited="false" isHidden="false" label="Action bar text color" name="gma-actionbar-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Cordova plugins" editorInfo="isDynamic:true;title:Cordova;description:Cordova plugins;icon:checkbox_checked" initialValue="" isDefaultInherited="false" isHidden="false" label="Cordova Plugins" name="gma-cordova" readOnly="false" type="MULTIPLEBOOLEAN"/>
<DynamicProperty description="Navigation bar background color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Navigation bar background color" name="gma-navigationBarBackground-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Primary color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Primary color" name="gma-primary-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Primary dark color (Android 5.0 and later)" initialValue="#5E35B1" isDefaultInherited="false" isHidden="false" label="Primary dark color" name="gma-primary-dark-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Primary text color (Android 5.0 and later)" initialValue="#000000" isDefaultInherited="false" isHidden="false" label="Primary text color" name="gma-primaryText-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Window backround color (Android 5.0 and later)" initialValue="#ffffff" isDefaultInherited="false" isHidden="false" label="Window background color" name="gma-windowBackground-color" readOnly="false" type="COLOR"/>
<DynamicProperty description="Cordova plugins" editorInfo="isDynamic:true;title:Cordova;description:Cordova plugins;icon:checkbox_checked" initialValue="" isDefaultInherited="false" isHidden="false" label="Cordova Plugins" name="gmi-cordova" readOnly="false" type="MULTIPLEBOOLEAN"/>
<DynamicProperty description="High-DPI Icon (72x72 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-hdpi (72x72 px)" name="icon-hdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Low-DPI Icon (36x36 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-ldpi (36x36 px)" name="icon-ldpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Medium-DPI Icon (48x48 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-mdpi (48x48 px)" name="icon-mdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Extra High-DPI Icon (96x96 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-xhdpi (96x96 px)" name="icon-xhdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Extra Extra High-DPI Icon (144x144 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon-xxhdpi (144x144 px)" name="icon-xxhdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="1024x1024 pixel icon (used for App Store)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (1024x1024 px)" name="icon1024x1024" readOnly="false" type="FILE"/>
<DynamicProperty description="120x120 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (120x120 px)" name="icon120x120" readOnly="false" type="FILE"/>
<DynamicProperty description="152x152 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (152x152 px)" name="icon152x152" readOnly="false" type="FILE"/>
<DynamicProperty description="167x167 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (167x167 px)" name="icon167x167" readOnly="false" type="FILE"/>
<DynamicProperty description="180x180 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (180x180 px)" name="icon180x180" readOnly="false" type="FILE"/>
<DynamicProperty description="29x29 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (29x29 px)" name="icon29x29" readOnly="false" type="FILE"/>
<DynamicProperty description="40x40 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (40x40 px)" name="icon40x40" readOnly="false" type="FILE"/>
<DynamicProperty description="58x58 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (58x58 px)" name="icon58x58" readOnly="false" type="FILE"/>
<DynamicProperty description="60x60 pixel icon (used for settings)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (60x60 px)" name="icon60x60" readOnly="false" type="FILE"/>
<DynamicProperty description="76x76 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (76x76 px)" name="icon76x76" readOnly="false" type="FILE"/>
<DynamicProperty description="80x80 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (80x80 px)" name="icon80x80" readOnly="false" type="FILE"/>
<DynamicProperty description="87x87 pixel icon (used for home screen)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Icon (87x87 px)" name="icon87x87" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 5/5S/SE (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (640x1136 px)" name="launchScreen" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPad (landcape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1024x768 px)" name="launchScreen1024x768" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone X (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1125x2436 px)" name="launchScreen1125x2436" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 5/5S/SE (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1136x640 px)" name="launchScreen1136x640" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 6+/6s+/7+/8+ (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1242x2208 px)" name="launchScreen1242x2208" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 6/6s/7/8 (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1334x750 px)" name="launchScreen1334x750" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPad (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1536x2048 px)" name="launchScreen1536x2048" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for 10.5&quot; iPad Pro (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (1668x2224 px)" name="launchScreen1668x2224" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPad (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2048x1536 px)" name="launchScreen2048x1536" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for 12.9&quot; iPad Pro (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2048x2732 px)" name="launchScreen2048x2732" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 6+/6s+/7+/8+ (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2208x1242 px)" name="launchScreen2208x1242" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for 10.5&quot; iPad Pro (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2224x1668 px)" name="launchScreen2224x1668" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone X (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2436x1125 px)" name="launchScreen2436x1125" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for 12.9&quot; iPad Pro (landscape)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (2732x2048 px)" name="launchScreen2732x2048" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPhone 6/6s/7/8 (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (750x1334 px)" name="launchScreen750x1334" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen for iPad (portrait)" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (768x1024 px)" name="launchScreen768x1024" readOnly="false" type="FILE"/>
<DynamicProperty description="Launch screen Storyboard file (Created from Xcode)" editorInfo="filters:*.storyboard *.xib;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Launch Screen (Storyboard file)" name="launchScreenXib" readOnly="false" type="FILE"/>
<DynamicProperty description="Package identifier" initialValue="" isDefaultInherited="false" isHidden="false" label="ID" name="packageId" readOnly="false" type="TEXT"/>
<DynamicProperty description="Label of the package" initialValue="" isDefaultInherited="false" isHidden="false" label="Label" name="packageLabel" readOnly="false" type="TEXT"/>
<DynamicProperty description="Version of the package" initialValue="1" isDefaultInherited="false" isHidden="false" label="Version" name="packageVersion" readOnly="false" type="TEXT"/>
<DynamicProperty description="Version of the package displayed to the user" initialValue="1" isDefaultInherited="false" isHidden="false" label="VersionName" name="packageVersionName" readOnly="false" type="TEXT"/>
<DynamicProperty editorInfo="title:Permissions;description:Android permissions;icon:checkbox_checked;contains:ACCEPT_HANDOVER|ACCESS_CHECKIN_PROPERTIES|ACCESS_COARSE_LOCATION|ACCESS_FINE_LOCATION|ACCESS_LOCATION_EXTRA_COMMANDS|ACCESS_NETWORK_STATE|ACCESS_NOTIFICATION_POLICY|ACCESS_WIFI_STATE|ACCOUNT_MANAGER|ADD_VOICEMAIL|ANSWER_PHONE_CALLS|BATTERY_STATS|BIND_ACCESSIBILITY_SERVICE|BIND_APPWIDGET|BIND_AUTOFILL_SERVICE|BIND_CARRIER_MESSAGING_SERVICE|BIND_CARRIER_SERVICES|BIND_CHOOSER_TARGET_SERVICE|BIND_CONDITION_PROVIDER_SERVICE|BIND_DEVICE_ADMIN|BIND_DREAM_SERVICE|BIND_INCALL_SERVICE|BIND_INPUT_METHOD|BIND_MIDI_DEVICE_SERVICE|BIND_NFC_SERVICE|BIND_NOTIFICATION_LISTENER_SERVICE|BIND_QUICK_SETTINGS_TILE|BIND_PRINT_SERVICE|BIND_REMOTEVIEWS|BIND_SLICE|BIND_SCREENING_SERVICE|BIND_TELECOM_CONNECTION_SERVICE|BIND_TEXT_SERVICE|BIND_TV_INPUT|BIND_VISUAL_VOICEMAIL_SERVICE|BIND_VOICE_INTERACTION|BIND_VPN_SERVICE|BIND_VR_LISTENER_SERVICE|BIND_WALLPAPER|BLUETOOTH|BLUETOOTH_ADMIN|BLUETOOTH_PRIVILEGED|BODY_SENSORS|BROADCAST_PACKAGE_REMOVED|BROADCAST_SMS|BROADCAST_STICKY|BROADCAST_WAP_PUSH|C2DM_RECEIVE|C2D_MESSAGE|CALL_PHONE|CALL_PRIVILEGED|CAMERA|CAPTURE_AUDIO_OUTPUT|CAPTURE_SECURE_VIDEO_OUTPUT|CAPTURE_VIDEO_OUTPUT|CHANGE_COMPONENT_ENABLED_STATE|CHANGE_CONFIGURATION|CHANGE_NETWORK_STATE|CHANGE_WIFI_MULTICAST_STATE|CHANGE_WIFI_STATE|CLEAR_APP_CACHE|CONTROL_LOCATION_UPDATES|DELETE_CACHE_FILES|DELETE_PACKAGES|DIAGNOSTIC|DISABLE_KEYGUARD|DUMP|EXPAND_STATUS_BAR|FACTORY_TEST|GET_ACCOUNTS|GET_ACCOUNTS_PRIVILEGED|GET_PACKAGE_SIZE|GET_TASKS|GLOBAL_SEARCH|INSTALL_LOCATION_PROVIDER|INSTALL_PACKAGES|INSTALL_SHORTCUT|INSTANT_APP_FOREGROUND_SERVICE|INTERNET|KILL_BACKGROUND_PROCESSES|LOCATION_HARDWARE|MANAGE_DOCUMENTS|MANAGE_OWN_CALLS|MASTER_CLEAR|MEDIA_CONTENT_CONTROL|MODIFY_AUDIO_SETTINGS|MODIFY_PHONE_STATE|MOUNT_FORMAT_FILESYSTEMS|MOUNT_UNMOUNT_FILESYSTEMS|NFC|NFC_TRANSACTION_EVENT|PACKAGE_USAGE_STATS|PERSISTENT_ACTIVITY|PROCESS_OUTGOING_CALLS|READ_CALENDAR|READ_CALL_LOG|READ_CONTACTS|READ_EXTERNAL_STORAGE|READ_FRAME_BUFFER|READ_INPUT_STATE|READ_LOGS|READ_PHONE_NUMBER|READ_PHONE_NUMBERS|READ_PHONE_STATE|READ_SMS|READ_SYNC_SETTINGS|READ_SYNC_STATS|READ_VOICEMAIL|REBOOT|RECEIVE_BOOT_COMPLETED|RECEIVE_MMS|RECEIVE_SMS|RECEIVE_WAP_PUSH|RECORD_AUDIO|REORDER_TASKS|REQUEST_COMPANION_RUN_IN_BACKGROUND|REQUEST_COMPANION_USE_DATA_IN_BACKGROUND|REQUEST_DELETE_PACKAGES|REQUEST_IGNORE_BATTERY_OPTIMIZATIONS|REQUEST_INSTALL_PACKAGES|RESTART_PACKAGES|SEND_RESPOND_VIA_MESSAGE|SEND_SMS|SET_ALARM|SET_ALWAYS_FINISH|SET_ANIMATION_SCALE|SET_DEBUG_APP|SET_PREFERRED_APPLICATIONS|SET_PROCESS_LIMIT|SET_TIME|SET_TIME_ZONE|SET_WALLPAPER|SET_WALLPAPER_HINTS|SIGNAL_PERSISTENT_PROCESSES|STATUS_BAR|SYSTEM_ALERT_WINDOW|TRANSMIT_IR|UNINSTALL_SHORTCUT|UPDATE_DEVICE_STATS|USE_FINGERPRINT|USE_SIP|VIBRATE|WAKE_LOCK|WRITE_APN_SETTINGS|WRITE_CALENDAR|WRITE_CALL_LOG|WRITE_CONTACTS|WRITE_EXTERNAL_STORAGE|WRITE_GSERVICES|WRITE_SECURE_SETTINGS|WRITE_SETTINGS|WRITE_SYNC_SETTINGS|WRITE_VOICEMAIL" initialValue="ACCESS_NETWORK_STATE||ACCESS_WIFI_STATE||CHANGE_NETWORK_STATE||INSTALL_SHORTCUT||INTERNET||MOUNT_FORMAT_FILESYSTEMS||READ_LOGS" isDefaultInherited="false" isHidden="false" label="Permissions" name="permissions" readOnly="false" type="MULTIPLEBOOLEAN"/>
<DynamicProperty description="Requirements" editorInfo="title:Requirements;description:iOS Requirements;icon:checkbox_checked;contains:accelerometer|auto-focus-camera|armv6|armv7|bluetooth-le|camera-flash|front-facing-camera|gamekit|gps|gyroscope|healthkit|magnetometer|metal|microphone|location-services|opengles-1|opengles-2|opengles-3|peer-peer|sms|still-camera|telephony|video-camera|wifi" initialValue="wifi" isDefaultInherited="false" isHidden="true" label="Requirements" name="required" readOnly="false" type="MULTIPLEBOOLEAN"/>
<DynamicProperty description="High-DPI Status Icon (36x36 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-hdpi (36x36 px)" name="status-icon-hdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Medium-DPI Status Icon (24x24 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-mdpi (24x24 px)" name="status-icon-mdpi" readOnly="false" type="FILE"/>
<DynamicProperty description="Extra High-DPI Status Icon (48x48 px) path" editorInfo="filters:*.png;openDirDialog:true;replaceDocPath:$(ProjectDir)" initialValue="" isDefaultInherited="false" isHidden="false" label="Status Icon-xhdpi (48x48 px)" name="status-icon-xhdpi" readOnly="false" type="FILE"/>
<DynamicPropertyGroup collapsed="false" description="Android" label="Android" name="AndroidGroup" properties="packageVersionName;gma-primary-color;gma-primary-dark-color;gma-accent-color;gma-actionbar-color;gma-primaryText-color;gma-windowBackground-color;gma-navigationBarBackground-color;icon-ldpi;icon-mdpi;icon-hdpi;icon-xhdpi;icon-xxhdpi;status-icon-mdpi;status-icon-hdpi;status-icon-xhdpi;permissions;gma-cordova"/>
<DynamicPropertyGroup collapsed="false" description="Package" label="Package" name="PackageGroup" properties="packageId;packageLabel;packageVersion"/>
<DynamicPropertyGroup collapsed="false" description="iOS" label="iOS" name="iOSGroup" properties="launchScreen;launchScreen1136x640;launchScreen750x1334;launchScreen1334x750;launchScreen1242x2208;launchScreen2208x1242;launchScreen1125x2436;launchScreen2436x1125;launchScreen768x1024;launchScreen1024x768;launchScreen1536x2048;launchScreen2048x1536;launchScreen2224x1668;launchScreen1668x2224;launchScreen2048x2732;launchScreen2732x2048;launchScreenXib;icon29x29;icon40x40;icon58x58;icon60x60;icon76x76;icon80x80;icon87x87;icon120x120;icon152x152;icon167x167;icon180x180;icon1024x1024;required;gmi-cordova"/>
</DynamicProperties>
<NodeInfos version="1">
<NodeInfo mimeType="pm/package" properties="packageId;packageLabel;packageVersion;packageVersionName;launchScreen;launchScreen1136x640;launchScreen750x1334;launchScreen1334x750;launchScreen1242x2208;launchScreen2208x1242;launchScreen1125x2436;launchScreen2436x1125;launchScreen768x1024;launchScreen1024x768;launchScreen1536x2048;launchScreen2048x1536;launchScreen2224x1668;launchScreen1668x2224;launchScreen2048x2732;launchScreen2732x2048;launchScreenXib;icon29x29;icon40x40;icon58x58;icon60x60;icon76x76;icon80x80;icon87x87;icon120x120;icon152x152;icon167x167;icon180x180;icon1024x1024;gma-primary-color;gma-primary-dark-color;gma-accent-color;gma-actionbar-color;gma-primaryText-color;gma-windowBackground-color;gma-navigationBarBackground-color;icon-ldpi;icon-mdpi;icon-hdpi;icon-xhdpi;icon-xxhdpi;status-icon-mdpi;status-icon-hdpi;status-icon-xhdpi;permissions;required;gma-cordova;gmi-cordova"/>
</NodeInfos>
</Settings>
<LanguageList version="1.0"/>
<PlatformList version="1.0"/>
<Group id="148531324" label="DatabaseMaintenance" language="Genero" targetDirectory="$(ProjectDir)/dbbin">
<Application binaryName="CreateDatabase" dependencies="455109296" id="184075814" label="CreateDatabase"/>
</Group>
<Group id="226903054" label="Packages" language="Genero">
<Package binaryName="Application_GAR" dependencies="455109296,362164715,159917928,212784684,400358049" id="180911700" label="Application_GAR" platform="Genero Application Server">
<DynamicProperty name="packageId" value="myapp"/>
<DynamicProperty name="packageLabel" value="MyApp"/>
<Directory excludedFiles="Test.42r" includedFiles="*.42?" label="Binaries" sourceDirectory="$(ProjectDir)/bin"/>
<Directory includedFiles="fglprofile" label="Config" sourceDirectory="$(ProjectDir)/config"/>
<Directory includedFiles="*.png,*.jpg,*.ttf,image2font.txt" label="Images" sourceDirectory="$(ProjectDir)/images"/>
<Directory includedFiles="*.42?" label="libdbapp" sourceDirectory="$(GSTSETUPDIR)/bin"/>
<Directory includedFiles="*.42?" label="libgst" sourceDirectory="$(GSTLIBRARYDIR)/bin"/>
<Directory includedFiles="*.4ad,*.4st,*.xcf,*.4tm,*.4tb,*.4sm,*.42s,*.iem,*.4rp" label="Resources" sourceDirectory="$(ProjectDir)/resources"/>
<Directory includedFiles="*.4st,*.4ad,*.4tm,*.4tb" label="Resources_dbapp" sourceDirectory="$(GSTSETUPDIR)/styles"/>
<Directory destinationDirectory="$(RootDir)/webcomponents" label="Webcomponents" sourceDirectory="$(ProjectDir)/webcomponents"/>
</Package>
</Group>
<Group environment="dirlist:DBPATH=$(ProjectDir)/database;$(DBPATH),dirlist:FGLIMAGEPATH=$(ProjectDir)/images;$(FGLDIR)/lib/image2font.txt;$(ProjectDir);$(FGLIMAGEPATH)" id="20809256" label="Project" language="Genero">
<Library binaryName="Applicationflow" id="767503616" label="Applicationflow">
<File filePath="appflow/appflow.4ba"/>
</Library>
<Library binaryName="Config" id="118222984" label="Config"/>
<Library binaryName="Database" id="455109296" label="Database">
<File filePath="database/mydatabase.4dbx"/>
<File filePath="../../../DATABASE/smarmotech.4db"/>
</Library>
<Library binaryName="Entities" dependencies="455109296" externalDependencies="libgre.42x" id="212784684" label="Entities"/>
<Library binaryName="formularios" dependencies="455109296" id="407560400" label="formularios">
<File filePath="vefmwd001.4fd"/>
<File filePath="vepfmmt001.4fd"/>
<File filePath="vepfmrp001.4fd"/>
</Library>
<Library binaryName="Resources" id="159917928" label="Resources">
<File filePath="resources/Application.xcf"/>
</Library>
<Application binaryName="veprmt022" dependencies="159917928,212784684,455109296" id="400358049" label="veprmt022">
<File filePath="veprfu001.4gl"/>
<File compilerOptions="--build-rdd" filePath="veprmt022.4gl"/>
</Application>
</Group>
</Project>
@@ -0,0 +1,218 @@
<?xml version="1.0" encoding="UTF-8" ?>
<Application gstVersion="30a05" version="5">
<AGSettings version="3">
<DynamicProperties version="2">
<DynamicProperty description="Action" dynamicContent="actionContent" editorInfo="editMode:true;isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Action" name="action" readOnly="false" type="ENUM"/>
<DynamicProperty description="Barcode source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Barcode" name="barcodeSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="Allow exporting report" initialValue="true" isDefaultInherited="false" isHidden="false" label="canExport" name="canExport" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Refresh data on return" editorInfo="editMode:false;contains:All Documents|Current Document|All Rows|Current Row|None" initialValue="Current Row" isDefaultInherited="false" isHidden="false" label="Data Refresh" name="dataRefresh" readOnly="false" type="ENUM"/>
<DynamicProperty description="Default Mode" editorInfo="contains:DISPLAY|ADD|MODIFY|SEARCH|EMPTY" initialValue="" isDefaultInherited="false" isHidden="false" label="Default Mode" name="defaultMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Disable Add functionality" initialValue="false" isDefaultInherited="false" isHidden="false" label="disable Add" name="disableAdd" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Disable Delete functionality" initialValue="false" isDefaultInherited="false" isHidden="false" label="disable Delete" name="disableDelete" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Disable Display functionality" initialValue="false" isDefaultInherited="false" isHidden="true" label="disable Display" name="disableDisplay" readOnly="true" type="BOOLEAN"/>
<DynamicProperty description="Disable Empty functionality" initialValue="false" isDefaultInherited="false" isHidden="true" label="disable Empty" name="disableEmpty" readOnly="true" type="BOOLEAN"/>
<DynamicProperty description="Disable Modify functionality" initialValue="false" isDefaultInherited="false" isHidden="false" label="disable Modify" name="disableModify" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Disable Search functionality" initialValue="false" isDefaultInherited="false" isHidden="false" label="disable Search" name="disableSearch" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Destination Field" dynamicContent="dstFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Destination Field" name="filterDstField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Source Field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Source Field" name="filterSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Default Mode" editorInfo="contains:DISPLAY|ADD|MODIFY|SEARCH|EMPTY" initialValue="DISPLAY" isDefaultInherited="false" isHidden="false" label="Default Mode" name="formDefaultMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Open Mode" editorInfo="contains:DISPLAY|ADD|MODIFY|SEARCH|EMPTY" initialValue="DISPLAY" isDefaultInherited="false" isHidden="false" label="Open Mode" name="formOpenMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On cancel" name="formTransitionAddCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="formTransitionAddClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="formTransitionAddExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On accept" name="formTransitionAddOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On cancel" name="formTransitionDisplayCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="formTransitionDisplayClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="formTransitionDisplayExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On accept" name="formTransitionDisplayOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On cancel" name="formTransitionModifyCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="formTransitionModifyClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="formTransitionModifyExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On accept" name="formTransitionModifyOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON Cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On cancel" name="formTransitionSearchCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="formTransitionSearchClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="formTransitionSearchExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On accept" name="formTransitionSearchOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Image path source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Image Path" name="imagePathSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="Mail attachment path source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Attachment" name="mailAttachmentSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Mail bcc source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Bcc" name="mailBccSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Mail cc source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Cc" name="mailCcSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Mail content source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Content" name="mailContentSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="Mail subject source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Subject" name="mailSubjectSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="Mail to source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="To" name="mailToSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Maps query source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Query" name="mapsSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Open Mode" editorInfo="contains:DISPLAY|ADD|MODIFY|SEARCH|EMPTY" initialValue="" isDefaultInherited="false" isHidden="false" label="Open Mode" name="openMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Phone number source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Phone Number" name="phoneSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="Allow quick exporting of the current report to HTML format" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickHTML" name="quickHTML" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Allow quick exporting of the current report to PDF format" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickPDF" name="quickPDF" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Allow quick previewing of the current report" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickPreview" name="quickPreview" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Allow quick printing of the current report" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickPrint" name="quickPrint" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Allow quick exporting of the current report to RTF (MS-Word) format" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickRTF" name="quickRTF" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Allow quick exporting of the current report to XLS (Excel) format" initialValue="true" isDefaultInherited="false" isHidden="false" label="quickXLS" name="quickXLS" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="Add - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On cancel" name="relationTransitionAddCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On close" name="relationTransitionAddClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On exit" name="relationTransitionAddExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On accept" name="relationTransitionAddOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On cancel" name="relationTransitionDisplayCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On close" name="relationTransitionDisplayClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On exit" name="relationTransitionDisplayExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On accept" name="relationTransitionDisplayOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On cancel" name="relationTransitionModifyCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On close" name="relationTransitionModifyClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On exit" name="relationTransitionModifyExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On accept" name="relationTransitionModifyOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON Cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On cancel" name="relationTransitionSearchCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On close" name="relationTransitionSearchClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On exit" name="relationTransitionSearchExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="" isDefaultInherited="false" isHidden="false" label="On accept" name="relationTransitionSearchOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Label displayed in the &apos;Report Print Settings&apos; dialog" initialValue="" isDefaultInherited="false" isHidden="false" label="Report Label" name="reportLabel" readOnly="false" type="TEXT"/>
<DynamicProperty description="Report file (.4rp)" initialValue="" isDefaultInherited="false" isHidden="false" label="Report File" name="reportPath" readOnly="false" type="TEXT"/>
<DynamicProperty description="Row Bound" initialValue="false" isDefaultInherited="false" isHidden="false" label="Row Bound" name="rowbound" readOnly="false" type="BOOLEAN"/>
<DynamicProperty description="SMS content source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Content" name="smsContentSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="SMS to source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="To" name="smsToSrcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Source Field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Source Field" name="srcField" readOnly="false" type="FIELDS"/>
<DynamicProperty description="Source Record" dynamicContent="srcRecordContent" editorInfo="editMode:false;isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Source Record" name="srcRecord" readOnly="false" type="ENUM"/>
<DynamicProperty description="Vcard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Vcard" name="vCardSrcField" readOnly="false" type="ENUM"/>
<DynamicProperty description="FirstName vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="First Name" name="vc_FirstName" readOnly="false" type="ENUM"/>
<DynamicProperty description="LastName vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Last Name" name="vc_LastName" readOnly="false" type="ENUM"/>
<DynamicProperty description="MiddleName vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Middle Name" name="vc_MiddleName" readOnly="false" type="ENUM"/>
<DynamicProperty description="Prefix vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Prefix" name="vc_Prefix" readOnly="false" type="ENUM"/>
<DynamicProperty description="Suffix vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Suffix" name="vc_Suffix" readOnly="false" type="ENUM"/>
<DynamicProperty description="City of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="City" name="vc_address_home_City" readOnly="false" type="ENUM"/>
<DynamicProperty description="Country of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Country" name="vc_address_home_Country" readOnly="false" type="ENUM"/>
<DynamicProperty description="Extended Address of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Extended Address" name="vc_address_home_ExtendedAddress" readOnly="false" type="ENUM"/>
<DynamicProperty description="Post Office Box of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Post Office Box" name="vc_address_home_PostOfficeBox" readOnly="false" type="ENUM"/>
<DynamicProperty description="State of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="State" name="vc_address_home_State" readOnly="false" type="ENUM"/>
<DynamicProperty description="Street of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Street" name="vc_address_home_Street" readOnly="false" type="ENUM"/>
<DynamicProperty description="ZIP of home address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="ZIP" name="vc_address_home_ZIP" readOnly="false" type="ENUM"/>
<DynamicProperty description="City of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="City" name="vc_address_work_City" readOnly="false" type="ENUM"/>
<DynamicProperty description="Country of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Country" name="vc_address_work_Country" readOnly="false" type="ENUM"/>
<DynamicProperty description="Extended Address of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Extended Address" name="vc_address_work_ExtendedAddress" readOnly="false" type="ENUM"/>
<DynamicProperty description="Post Office Box of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Post Office Box" name="vc_address_work_PostOfficeBox" readOnly="false" type="ENUM"/>
<DynamicProperty description="State of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="State" name="vc_address_work_State" readOnly="false" type="ENUM"/>
<DynamicProperty description="Street of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Street" name="vc_address_work_Street" readOnly="false" type="ENUM"/>
<DynamicProperty description="ZIP of work address in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="ZIP" name="vc_address_work_ZIP" readOnly="false" type="ENUM"/>
<DynamicProperty description="birthday vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Birthday" name="vc_birthday" readOnly="false" type="ENUM"/>
<DynamicProperty description="department vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Department" name="vc_department" readOnly="false" type="ENUM"/>
<DynamicProperty description="Home email in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Home" name="vc_email_home" readOnly="false" type="ENUM"/>
<DynamicProperty description="Work email in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Work" name="vc_email_work" readOnly="false" type="ENUM"/>
<DynamicProperty description="formattedName vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Formatted Name" name="vc_formattedName" readOnly="false" type="ENUM"/>
<DynamicProperty description="jobTitle vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Job Title" name="vc_jobTitle" readOnly="false" type="ENUM"/>
<DynamicProperty description="nickname vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Nickname" name="vc_nickname" readOnly="false" type="ENUM"/>
<DynamicProperty description="note vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Note" name="vc_note" readOnly="false" type="ENUM"/>
<DynamicProperty description="organization vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Organization" name="vc_organization" readOnly="false" type="ENUM"/>
<DynamicProperty description="Mobile phone in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Mobile" name="vc_phone_cell_voice" readOnly="false" type="ENUM"/>
<DynamicProperty description="Home fax in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Home Fax" name="vc_phone_home_fax" readOnly="false" type="ENUM"/>
<DynamicProperty description="Home phone in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Home" name="vc_phone_home_voice" readOnly="false" type="ENUM"/>
<DynamicProperty description="Main phone in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Main" name="vc_phone_main" readOnly="false" type="ENUM"/>
<DynamicProperty description="Work fax in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Work Fax" name="vc_phone_work_fax" readOnly="false" type="ENUM"/>
<DynamicProperty description="Work phone in vCard source field" dynamicContent="srcFieldContent" editorInfo="isDynamic:true" initialValue="" isDefaultInherited="false" isHidden="false" label="Work" name="vc_phone_work_voice" readOnly="false" type="ENUM"/>
<DynamicProperty description="Adds a comment to a Web Service" initialValue="" isDefaultInherited="false" isHidden="false" label="Comment" name="wsComment" readOnly="false" type="TEXT"/>
<DynamicProperty description="Service Name" initialValue="" isDefaultInherited="false" isHidden="false" label="Service Name" name="wsName" readOnly="false" type="TEXT"/>
<DynamicProperty description="Service Namespace" initialValue="" isDefaultInherited="false" isHidden="false" label="Namespace" name="wsNamespace" readOnly="false" type="TEXT"/>
<DynamicProperty description="Default Mode" editorInfo="contains:DISPLAY|SEARCH" initialValue="DISPLAY" isDefaultInherited="false" isHidden="false" label="Default Mode" name="zoomDefaultMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Open Mode" editorInfo="contains:DISPLAY|SEARCH" initialValue="DISPLAY" isDefaultInherited="false" isHidden="false" label="Open Mode" name="zoomOpenMode" readOnly="false" type="ENUM"/>
<DynamicProperty description="Add - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="true" label="On cancel" name="zoomTransitionAddCancel" readOnly="true" type="ENUM"/>
<DynamicProperty description="Add - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="true" label="On close" name="zoomTransitionAddClose" readOnly="true" type="ENUM"/>
<DynamicProperty description="Add - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="true" label="On exit" name="zoomTransitionAddExit" readOnly="true" type="ENUM"/>
<DynamicProperty description="Add - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="true" label="On accept" name="zoomTransitionAddOk" readOnly="true" type="ENUM"/>
<DynamicProperty description="Display - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On cancel" name="zoomTransitionDisplayCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="zoomTransitionDisplayClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="zoomTransitionDisplayExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Display - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On accept" name="zoomTransitionDisplayOk" readOnly="false" type="ENUM"/>
<DynamicProperty description="Modify - ON cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="true" label="On cancel" name="zoomTransitionModifyCancel" readOnly="true" type="ENUM"/>
<DynamicProperty description="Modify - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="true" label="On close" name="zoomTransitionModifyClose" readOnly="true" type="ENUM"/>
<DynamicProperty description="Modify - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="true" label="On exit" name="zoomTransitionModifyExit" readOnly="true" type="ENUM"/>
<DynamicProperty description="Modify - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="true" label="On accept" name="zoomTransitionModifyOk" readOnly="true" type="ENUM"/>
<DynamicProperty description="Search - ON Cancel" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On cancel" name="zoomTransitionSearchCancel" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON close" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitForm" isDefaultInherited="false" isHidden="false" label="On close" name="zoomTransitionSearchClose" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON exit" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ExitApp" isDefaultInherited="false" isHidden="false" label="On exit" name="zoomTransitionSearchExit" readOnly="false" type="ENUM"/>
<DynamicProperty description="Search - ON accept" editorInfo="contains:ReturnToDefaultMode|ReturnToCallerMode|StayInMode|ExitForm|ExitApp" initialValue="ReturnToDefaultMode" isDefaultInherited="false" isHidden="false" label="On accept" name="zoomTransitionSearchOk" readOnly="false" type="ENUM"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in ADD mode on OK/Cancel/Close/Exit actions" label="ADD Behavior" name="formAutomatonSettingsAdd" properties="formTransitionAddOk;formTransitionAddCancel;formTransitionAddClose;formTransitionAddExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in DISPLAY mode on OK/Cancel/Close/Exit actions" label="DISPLAY Behavior" name="formAutomatonSettingsDisplay" properties="formTransitionDisplayOk;formTransitionDisplayCancel;formTransitionDisplayClose;formTransitionDisplayExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in MODIFY mode on OK/Cancel/Close/Exit actions" label="MODIFY Behavior" name="formAutomatonSettingsModify" properties="formTransitionModifyOk;formTransitionModifyCancel;formTransitionModifyClose;formTransitionModifyExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in SEARCH mode on OK/Cancel/Close/Exit actions" label="SEARCH Behavior" name="formAutomatonSettingsSearch" properties="formTransitionSearchOk;formTransitionSearchCancel;formTransitionSearchClose;formTransitionSearchExit"/>
<DynamicPropertyGroup collapsed="false" description="User properties group" label="Report Options" name="formReportOptions" properties="quickPrint;quickPreview;quickPDF;quickHTML;quickXLS;quickRTF;canExport"/>
<DynamicPropertyGroup collapsed="false" description="User Interface Settings" label="UI Settings" name="formUiSettings" properties="formOpenMode;formDefaultMode"/>
<DynamicPropertyGroup collapsed="false" description="Target Automaton Settings in ADD mode on OK/Cancel/Close/Exit actions" label="ADD Behavior" name="relationAutomatonSettingsAdd" properties="relationTransitionAddOk;relationTransitionAddCancel;relationTransitionAddClose;relationTransitionAddExit"/>
<DynamicPropertyGroup collapsed="false" description="Target Automaton Settings in DISPLAY mode on OK/Cancel/Close/Exit actions" label="DISPLAY Behavior" name="relationAutomatonSettingsDisplay" properties="relationTransitionDisplayOk;relationTransitionDisplayCancel;relationTransitionDisplayClose;relationTransitionDisplayExit"/>
<DynamicPropertyGroup collapsed="false" description="Target Automaton Settings in MODIFY mode on OK/Cancel/Close/Exit actions" label="MODIFY Behavior" name="relationAutomatonSettingsModify" properties="relationTransitionModifyOk;relationTransitionModifyCancel;relationTransitionModifyClose;relationTransitionModifyExit"/>
<DynamicPropertyGroup collapsed="false" description="Target Automaton Settings in SEARCH mode on OK/Cancel/Close/Exit actions" label="SEARCH Behavior" name="relationAutomatonSettingsSearch" properties="relationTransitionSearchOk;relationTransitionSearchCancel;relationTransitionSearchClose;relationTransitionSearchExit"/>
<DynamicPropertyGroup collapsed="false" description="Results properties group" label="Results" name="relationBarcodeResults" properties="barcodeSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Email properties group" label="Email" name="relationContactEmail" properties="vc_email_work;vc_email_home"/>
<DynamicPropertyGroup collapsed="false" description="Home address properties group" label="Address Home" name="relationContactHomeAddress" properties="vc_address_home_Street;vc_address_home_City;vc_address_home_State;vc_address_home_ZIP;vc_address_home_Country;vc_address_home_PostOfficeBox;vc_address_home_ExtendedAddress"/>
<DynamicPropertyGroup collapsed="false" description="Person properties group" label="Person" name="relationContactPerson" properties="vc_FirstName;vc_LastName;vc_MiddleName;vc_Prefix;vc_Suffix;vc_formattedName;vc_nickname;vc_jobTitle;vc_organization;vc_department;vc_birthday;vc_note"/>
<DynamicPropertyGroup collapsed="false" description="Phone properties group" label="Phone" name="relationContactPhone" properties="vc_phone_cell_voice;vc_phone_work_voice;vc_phone_home_voice;vc_phone_main;vc_phone_work_fax;vc_phone_home_fax"/>
<DynamicPropertyGroup collapsed="false" description="Results properties group" label="Results" name="relationContactResults" properties="vCardSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Work address properties group" label="Address Work" name="relationContactWorkAddress" properties="vc_address_work_Street;vc_address_work_City;vc_address_work_State;vc_address_work_ZIP;vc_address_work_Country;vc_address_work_PostOfficeBox;vc_address_work_ExtendedAddress"/>
<DynamicPropertyGroup collapsed="false" description="Destination Form User Interface Settings" label="Destination UI Settings" name="relationDestinationUiSettings" properties="openMode;defaultMode"/>
<DynamicPropertyGroup collapsed="false" description="Filter properties group" label="Filter" name="relationFilter" properties="filterSrcField;filterDstField"/>
<DynamicPropertyGroup collapsed="false" description="Disable Functionality" label="Functionality" name="relationFunctionality" properties="disableDisplay;disableAdd;disableModify;disableDelete;disableSearch;disableEmpty"/>
<DynamicPropertyGroup collapsed="false" description="Results properties group" label="Results" name="relationImageResults" properties="imagePathSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Mail parameter properties group" label="Parameters" name="relationMailParameters" properties="mailToSrcField;mailCcSrcField;mailBccSrcField;mailSubjectSrcField;mailContentSrcField;mailAttachmentSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Maps parameter properties group" label="Parameters" name="relationMapsParameters" properties="mapsSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Phone parameter properties group" label="Parameters" name="relationPhoneParameters" properties="phoneSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Position properties group" label="Position" name="relationPosition" properties="srcField"/>
<DynamicPropertyGroup collapsed="false" description="Report Settings" label="Report Settings" name="relationReportSettings" properties="reportPath;reportLabel"/>
<DynamicPropertyGroup collapsed="false" description="SMS parameter properties group" label="Parameters" name="relationSmsParameters" properties="smsToSrcField;smsContentSrcField"/>
<DynamicPropertyGroup collapsed="false" description="Source Form User Interface Settings" label="Source UI Settings" name="relationSourceUiSettings" properties="action;srcRecord;rowbound;dataRefresh"/>
<DynamicPropertyGroup collapsed="false" description="Web service properties group" label="Web Service" name="webService" properties="wsName;wsComment"/>
<DynamicPropertyGroup collapsed="false" description="Web service server properties group" label="Web Service Server" name="webServiceServer" properties="wsNamespace"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in ADD mode on OK/Cancel/Close/Exit actions" label="ADD Behavior" name="zoomAutomatonSettingsAdd" properties="zoomTransitionAddOk;zoomTransitionAddCancel;zoomTransitionAddClose;zoomTransitionAddExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in DISPLAY mode on OK/Cancel/Close/Exit actions" label="DISPLAY Behavior" name="zoomAutomatonSettingsDisplay" properties="zoomTransitionDisplayOk;zoomTransitionDisplayCancel;zoomTransitionDisplayClose;zoomTransitionDisplayExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in MODIFY mode on OK/Cancel/Close/Exit actions" label="MODIFY Behavior" name="zoomAutomatonSettingsModify" properties="zoomTransitionModifyOk;zoomTransitionModifyCancel;zoomTransitionModifyClose;zoomTransitionModifyExit"/>
<DynamicPropertyGroup collapsed="false" description="Default Automaton Settings for incoming relation in SEARCH mode on OK/Cancel/Close/Exit actions" label="SEARCH Behavior" name="zoomAutomatonSettingsSearch" properties="zoomTransitionSearchOk;zoomTransitionSearchCancel;zoomTransitionSearchClose;zoomTransitionSearchExit"/>
<DynamicPropertyGroup collapsed="false" description="User Interface Settings" label="UI Settings" name="zoomUiSettings" properties="zoomOpenMode;zoomDefaultMode"/>
</DynamicProperties>
<Items>
<Item actions="BALocateInPM BAAddRelationTo" depth="1" extension="4prg" icon="bullet_class" label="Program" name="Program"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="formOpenMode;formDefaultMode;formTransitionDisplayOk;formTransitionDisplayCancel;formTransitionDisplayClose;formTransitionDisplayExit;formTransitionModifyOk;formTransitionModifyCancel;formTransitionModifyClose;formTransitionModifyExit;formTransitionAddOk;formTransitionAddCancel;formTransitionAddClose;formTransitionAddExit;formTransitionSearchOk;formTransitionSearchCancel;formTransitionSearchClose;formTransitionSearchExit;quickPrint;quickPreview;quickPDF;quickHTML;quickXLS;quickRTF;canExport" extension="4fdm" icon="document_4fdm" label="CRUD Form" name="Form"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="zoomOpenMode;zoomDefaultMode;zoomTransitionDisplayOk;zoomTransitionDisplayCancel;zoomTransitionDisplayClose;zoomTransitionDisplayExit;zoomTransitionModifyOk;zoomTransitionModifyCancel;zoomTransitionModifyClose;zoomTransitionModifyExit;zoomTransitionAddOk;zoomTransitionAddCancel;zoomTransitionAddClose;zoomTransitionAddExit;zoomTransitionSearchOk;zoomTransitionSearchCancel;zoomTransitionSearchClose;zoomTransitionSearchExit" extension="4fdz" icon="document_4fdz" label="Zoom Form" name="Zoom"/>
<Item actions="BALocateInPM BAAddRelationTo" extension="4rd" icon="document_4rd_sql" label="Report Data" name="ReportData"/>
<Item actions="BALocateInPM BAAddRelationTo" depth="1" dynamicProperties="wsNamespace" extension="4wsprg" icon="document_4wsprg" label="SOAP Web Service Server" name="WebServiceServer"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment" extension="4ws" icon="document_4ws" label="SOAP Web Service" name="WebService"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment;formOpenMode;formDefaultMode;formTransitionDisplayOk;formTransitionDisplayCancel;formTransitionDisplayClose;formTransitionDisplayExit;formTransitionModifyOk;formTransitionModifyCancel;formTransitionModifyClose;formTransitionModifyExit;formTransitionAddOk;formTransitionAddCancel;formTransitionAddClose;formTransitionAddExit;formTransitionSearchOk;formTransitionSearchCancel;formTransitionSearchClose;formTransitionSearchExit;quickPrint;quickPreview;quickPDF;quickHTML;quickXLS;quickRTF;canExport" extension="4fdmws" icon="document_4fdmws" label="CRUD Form and SOAP Web Service" name="FormWebService"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment;zoomOpenMode;zoomDefaultMode;zoomTransitionDisplayOk;zoomTransitionDisplayCancel;zoomTransitionDisplayClose;zoomTransitionDisplayExit;zoomTransitionModifyOk;zoomTransitionModifyCancel;zoomTransitionModifyClose;zoomTransitionModifyExit;zoomTransitionAddOk;zoomTransitionAddCancel;zoomTransitionAddClose;zoomTransitionAddExit;zoomTransitionSearchOk;zoomTransitionSearchCancel;zoomTransitionSearchClose;zoomTransitionSearchExit" extension="4fdzws" icon="document_4fdzws" label="Zoom Form and SOAP Web Service" name="ZoomWebService"/>
<Item actions="BALocateInPM BAAddRelationTo" depth="1" extension="4wsjprg" icon="document_4wsjprg" label="JSON Web Service Server" name="WebServiceServerJSON"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment" extension="4wsj" icon="document_4wsj" label="JSON Web Service" name="WebServiceJSON"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment;formOpenMode;formDefaultMode;formTransitionDisplayOk;formTransitionDisplayCancel;formTransitionDisplayClose;formTransitionDisplayExit;formTransitionModifyOk;formTransitionModifyCancel;formTransitionModifyClose;formTransitionModifyExit;formTransitionAddOk;formTransitionAddCancel;formTransitionAddClose;formTransitionAddExit;formTransitionSearchOk;formTransitionSearchCancel;formTransitionSearchClose;formTransitionSearchExit;quickPrint;quickPreview;quickPDF;quickHTML;quickXLS;quickRTF;canExport" extension="4fdmwsj" icon="document_4fdmwsj" label="CRUD Form and JSON Web Service" name="FormWebServiceJSON"/>
<Item actions="BALocateInPM BAAddRelationTo" dynamicProperties="wsName;wsComment;zoomOpenMode;zoomDefaultMode;zoomTransitionDisplayOk;zoomTransitionDisplayCancel;zoomTransitionDisplayClose;zoomTransitionDisplayExit;zoomTransitionModifyOk;zoomTransitionModifyCancel;zoomTransitionModifyClose;zoomTransitionModifyExit;zoomTransitionAddOk;zoomTransitionAddCancel;zoomTransitionAddClose;zoomTransitionAddExit;zoomTransitionSearchOk;zoomTransitionSearchCancel;zoomTransitionSearchClose;zoomTransitionSearchExit" extension="4fdzwsj" icon="document_4fdzwsj" label="Zoom Form and JSON Web Service" name="ZoomWebServiceJSON"/>
<Item actions="BALocateInPM BAAddRelationTo" extension="4fdc" icon="document_4fdc" label="Custom Form" name="CustomForm"/>
<BasicItem actions="BAAddRelationTo" icon="ba_takePhoto" label="Photo" name="Photo"/>
<BasicItem actions="BAAddRelationTo" icon="ba_choosePhoto" label="Gallery" name="Gallery"/>
<BasicItem actions="BAAddRelationTo" icon="ba_callPhone" label="Phone" name="Phone"/>
<BasicItem actions="BAAddRelationTo" icon="ba_composeMail" label="Mail" name="Mail"/>
<BasicItem actions="BAAddRelationTo" icon="ba_composeSms" label="SMS" name="SMS"/>
<BasicItem actions="BAAddRelationTo" icon="ba_chooseContact" label="Contact" name="Contact"/>
<BasicItem actions="BAAddRelationTo" icon="ba_mapsTo" label="Maps" name="Maps"/>
<BasicItem actions="BAAddRelationTo" icon="ba_scanBarcode" label="Barcode" name="Barcode"/>
<Relation dynamicProperties="action;srcRecord;rowbound;srcField;filterSrcField;filterDstField;openMode;defaultMode;dataRefresh;disableDisplay;disableAdd;disableModify;disableDelete;disableSearch;disableEmpty;relationTransitionDisplayOk;relationTransitionDisplayCancel;relationTransitionDisplayClose;relationTransitionDisplayExit;relationTransitionModifyOk;relationTransitionModifyCancel;relationTransitionModifyClose;relationTransitionModifyExit;relationTransitionAddOk;relationTransitionAddCancel;relationTransitionAddClose;relationTransitionAddExit;relationTransitionSearchOk;relationTransitionSearchCancel;relationTransitionSearchClose;relationTransitionSearchExit" icon="ba_relation" label="Form" name="Relation"/>
<Relation dynamicProperties="action;srcRecord;rowbound;srcField;filterSrcField;filterDstField;dataRefresh" icon="ba_relation" label="Custom Form" name="CustomFormRelation"/>
<Relation dynamicProperties="srcField;filterSrcField;filterDstField;reportPath;reportLabel" icon="ba_relation" label="Report" name="ReportRelation"/>
<Relation icon="ba_relation" label="SOAP Web Service" name="WebServiceRelation"/>
<Relation icon="ba_relation" label="JSON Web Service" name="WebServiceRelationJSON"/>
<Relation dynamicProperties="action;phoneSrcField" icon="ba_relation" label="Phone" name="PhoneRelation"/>
<Relation dynamicProperties="action;mailToSrcField;mailCcSrcField;mailBccSrcField;mailSubjectSrcField;mailContentSrcField;mailAttachmentSrcField" icon="ba_relation" label="Mail" name="MailRelation"/>
<Relation dynamicProperties="action;smsToSrcField;smsContentSrcField" icon="ba_relation" label="SMS" name="SMSRelation"/>
<Relation dynamicProperties="action;mapsSrcField" icon="ba_relation" label="Maps" name="MapsRelation"/>
<Relation dynamicProperties="action;imagePathSrcField" icon="ba_relation" label="Photo" name="PhotoRelation"/>
<Relation dynamicProperties="action;imagePathSrcField" icon="ba_relation" label="Gallery" name="GalleryRelation"/>
<Relation dynamicProperties="action;vCardSrcField;vc_FirstName;vc_LastName;vc_MiddleName;vc_Prefix;vc_Suffix;vc_formattedName;vc_nickname;vc_jobTitle;vc_organization;vc_department;vc_birthday;vc_note;vc_address_work_Street;vc_address_work_City;vc_address_work_State;vc_address_work_ZIP;vc_address_work_Country;vc_address_work_PostOfficeBox;vc_address_work_ExtendedAddress;vc_address_home_Street;vc_address_home_City;vc_address_home_State;vc_address_home_ZIP;vc_address_home_Country;vc_address_home_PostOfficeBox;vc_address_home_ExtendedAddress;vc_phone_cell_voice;vc_phone_work_voice;vc_phone_home_voice;vc_phone_main;vc_phone_work_fax;vc_phone_home_fax;vc_email_work;vc_email_home" icon="ba_relation" label="Contact" name="ContactRelation"/>
<Relation dynamicProperties="action;barcodeSrcField" icon="ba_relation" label="Barcode" name="BarcodeRelation"/>
</Items>
</AGSettings>
<Items>
<Item fileName="" id="{5ff5e0c7-2ea3-46f2-a03e-d187c171cfb6}" name="main" type="Program">
<Relation dst="{b971e095-175c-4980-bb84-079676ebe4bd}" id="{f7c21e14-d080-487c-b422-515c59346a0c}" name="Relation1" type="Relation"/>
</Item>
<Item fileName="" id="{b971e095-175c-4980-bb84-079676ebe4bd}" name="form" type="Form"/>
</Items>
<IgnoredFiles/>
<Views activeView="View-1">
<View name="View-1">
<Layout>
<![CDATA[AAAAAgAAAEwAewA1AGYAZgA1AGUAMABjADcALQAyAGUAYQAzAC0ANAA2AGYAMgAtAGEAMAAzAGUALQBkADEAOAA3AGMAMQA3ADEAYwBmAGIANgB9QFgAAAAAAABAWYAAAAAAAD98rAgxJul5AQAAAEwAewBiADkANwAxAGUAMAA5ADUALQAxADcANQBjAC0ANAA5ADgAMAAtAGIAYgA4ADQALQAwADcAOQA2ADcANgBlAGIAZQA0AGIAZAB9QHEAAAAAAABAWwAAAAAAAD+Kn752yLQ8AQ==]]>
</Layout>
</View>
</Views>
</Application>
@@ -0,0 +1,93 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" version="3.01">
<report:Settings RWPageWidth="3.00inch" RWPageLength="3.00inch" RWLeftMargin="0.15inch" RWTopMargin="0.10inch" RWRightMargin="0.10inch" RWBottomMargin="0.10inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../../vedir/PUNTOVENTAS/veprmt022.rdd" RWFglReportName="factura"/>
<rtl:stylesheet>
<PXML>
<rtl:match nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="min">
<LAYOUTNODE name="Empresa" width="min" length="min" fontSize="10" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="nombre_cia" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="nombre_cia Value" width="width(&quot;M&quot;)*15" length="1cm" floatingBehavior="enclosed" text="{{nombre_cia}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="hora Value" floatingBehavior="enclosed" text="{{hora}}"/>
</LAYOUTNODE>
<MINIPAGE name="Factura" width="min" length="min" fontSize="7" layoutDirection="leftToRight">
<WORDBOX name="WordBox9" width="1.7cm" fontBold="true" floatingBehavior="enclosed" text="FACTURA NO."/>
<rtl:input-variable name="x.factura_no" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factura_no Value" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="&amp;&amp;&amp;&amp;&amp;#" value="{{x.factura_no}}"/>
<WORDBOX name="WordBox14" width="1.5cm" floatingBehavior="enclosed" textAlignment="right" text="FECHA: "/>
<rtl:input-variable name="x.fecha_factura" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="x.fecha_factura Value" floatingBehavior="enclosed" text="{{x.fecha_factura}}"/>
</MINIPAGE>
<MINIPAGE name="Cliente" width="min" length="min" fontSize="6" layoutDirection="leftToRight">
<WORDBOX name="WordBox11" floatingBehavior="enclosed" text="CLIENTE:"/>
<rtl:input-variable name="x.codigo_id" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="x.codigo_id Value" width=".5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="left" format="&amp;&amp;&amp;&amp;" value="{{x.codigo_id}}"/>
<rtl:input-variable name="x.nombre_cliente" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="x.nombre_cliente Value" width="width(&quot;M&quot;)*10" floatingBehavior="enclosed" text="{{x.nombre_cliente}}"/>
<rtl:input-variable name="descripcion_dpto" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="descripcion_dpto Value" width="3.1cm" floatingBehavior="enclosed" textAlignment="right" text="{{descripcion_dpto}}"/>
</MINIPAGE>
<LAYOUTNODE name="Encabezado Detalle" width="min" length="min" fontSize="7" fontBold="true" layoutDirection="leftToRight" floatingBehavior="enclosed" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox" width="3cm" floatingBehavior="enclosed" text="ARTICULO(S)"/>
<WORDBOX name="WordBox1" width="1.5cm" floatingBehavior="enclosed" text="CANTIDAD"/>
<WORDBOX name="WordBox2" width="1.5cm" floatingBehavior="enclosed" text="PRECIO"/>
<WORDBOX name="WordBox3" width="2cm" floatingBehavior="enclosed" text="VALOR"/>
</LAYOUTNODE>
<rtl:match nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<MINIPAGE name="Detalle" width="min" length="min" fontSize="7" layoutDirection="leftToRight">
<rtl:input-variable name="z.descripcion" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="z.descripcion Value" width="3cm" floatingBehavior="enclosed" text="{{z.descripcion}}"/>
<rtl:input-variable name="z.cantidad" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="z.cantidad Value" width="1cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{z.cantidad}}"/>
<rtl:input-variable name="z.precio" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="z.precio Value" width="1.2cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{z.precio}}"/>
<rtl:input-variable name="z.valor" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="z.valor Value" width="1.5cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{z.valor}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="Totales" width="min" length="min" fontSize="7" layoutDirection="leftToRight">
<MINIPAGE name="MiniPage3" width="min" length="min" fontSize="7" fontBold="true">
<WORDBOX name="WordBox4_1" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text=" "/>
<WORDBOX name="WordBox4" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text="Bruto"/>
<WORDBOX name="WordBox5" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text="Descuento"/>
<WORDBOX name="WordBox6" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text="ITBIS"/>
<WORDBOX name="WordBox7" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text="SUB-TOTAL"/>
<WORDBOX name="WordBox8" width="4.5cm" floatingBehavior="enclosed" textAlignment="right" text="NETO"/>
</MINIPAGE>
<MINIPAGE name="MiniPage1" width="min" length="min" fontSize="7" fontBold="true">
<WORDBOX name="WordBox10" floatingBehavior="enclosed" text="-------------"/>
<rtl:input-variable name="x.bruto" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="x.bruto Value" width="1.3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.bruto}}"/>
<rtl:input-variable name="x.descuento" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="x.descuento Value" width="1.3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.descuento}}"/>
<rtl:input-variable name="x.itbis" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="x.itbis Value" width="1.3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.itbis}}"/>
<rtl:input-variable name="x.sub_total" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="x.sub_total Value" width="1.3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.sub_total}}"/>
<rtl:input-variable name="x.neto" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="x.neto Value" width="1.3cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.neto}}"/>
</MINIPAGE>
</MINIPAGE>
<MINIPAGE name="Balance" width="min" length="min" fontSize="7" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="WordBox15" width="2cm" floatingBehavior="enclosed" text="CONSUMIDO:"/>
<rtl:input-variable name="balance" type="FGLNumeric" expectedLocation="expectedBefore"/>
<DECIMALFORMATBOX name="balance Value" width="2cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{balance}}"/>
</MINIPAGE>
<MINIPAGE name="Firma" width="min" length="2cm" alignment="baseline" fontSize="8" paddingTopWidth=".5cm">
<WORDBOX name="WordBox12" alignment="far" floatingBehavior="enclosed" textAlignment="left" text="------------------------------" paddingTopWidth="1.2cm"/>
<rtl:input-variable name="x.nombre_cliente" type="FGLString" expectedLocation="expectedBefore"/>
<WORDBOX name="WordBox13" floatingBehavior="enclosed" text="{{x.nombre_cliente.trim()}}"/>
</MINIPAGE>
</MINIPAGE>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
@@ -0,0 +1,67 @@
<?xml version="1.0" encoding="UTF-8"?>
<report:Report xmlns:rtl="http://www.4js.com/2004/RTL" xmlns:report="http://www.4js.com/2007/REPORT" xmlns="http://www.4js.com/2004/PXML" gstVersion="31408" version="6.00">
<report:Settings RWPageWidth="3.00inch" RWPageLength="3.00inch" RWLeftMargin="0.10inch" RWTopMargin="0.10inch" RWRightMargin="0.10inch" RWBottomMargin="0.10inch">
<report:FormatList>
<report:Format-SVG/>
<report:Format-PDF/>
<report:Format-image/>
</report:FormatList>
</report:Settings>
<report:Data RWDataLocation="../../vedir/PUNTOVENTAS/veprmt022.rdd" RWFglReportName="r_registros"/>
<report:Conflicts/>
<rtl:stylesheet>
<PXML>
<rtl:match name="Report" nameConstraint="Report">
<MINIPAGE name="Page Root" width="max" length="min" fontSize="8">
<MINIPAGE name="encPrincipal" width="min" length="min" layoutDirection="leftToRight">
<rtl:input-variable name="nombre_cia" type="FGLString" expectedLocation="expectedAhead"/>
<WORDWRAPBOX name="nombre_cia Value" width="width(&quot;M&quot;)*18" floatingBehavior="enclosed" text="{{nombre_cia}}"/>
<rtl:input-variable name="hora" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="hora Value" floatingBehavior="enclosed" text="{{hora}}"/>
</MINIPAGE>
<MINIPAGE name="rangofechas" width="min" length="min" fontSize="7" fontBold="true" layoutDirection="leftToRight">
<WORDBOX name="Finicial" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="FECHA INICIAL:"/>
<rtl:input-variable name="xfecha1" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="xfecha1 Value" floatingBehavior="enclosed" text="{{xfecha1}}"/>
<WORDBOX name="FFinal" width="2cm" floatingBehavior="enclosed" textAlignment="right" text="FECHA FINAL:"/>
<rtl:input-variable name="xfecha2" type="FGLString" expectedLocation="expectedAhead"/>
<WORDBOX name="xfecha2 Value" floatingBehavior="enclosed" text="{{xfecha2}}"/>
</MINIPAGE>
<MINIPAGE name="encabezados" width="min" length="min" fontSize="7" layoutDirection="leftToRight" roundedCorners="true" borderWidth="1" borderStyle="solid">
<WORDBOX name="WordBox" width="1.5cm" floatingBehavior="enclosed" text="FECHA"/>
<WORDBOX name="WordBox1" width="1.5cm" floatingBehavior="enclosed" text="FACTURA"/>
<WORDBOX name="WordBox5" width="2cm" alignment="baseline" floatingBehavior="enclosed" textAlignment="left" text="NOMBRE"/>
<WORDBOX name="WordBox2" width="1.9cm" floatingBehavior="enclosed" textAlignment="right" text="VALOR"/>
</MINIPAGE>
<rtl:match name="Group condicion" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="Group factura" nameConstraint="Group" minOccurs="0" maxOccurs="unbounded">
<rtl:match name="OnEveryRow" nameConstraint="OnEveryRow" minOccurs="0" maxOccurs="unbounded">
<LAYOUTNODE name="detalle" width="min" length="min" fontSize="7" layoutDirection="leftToRight" floatingBehavior="enclosed">
<rtl:input-variable name="x.fecha_factura" type="FGLString" expectedLocation="expectedHere"/>
<WORDBOX name="x.fecha_factura Value" width="1cm" floatingBehavior="enclosed" text="{{x.fecha_factura}}"/>
<rtl:input-variable name="x.factura" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.factura Value" width=".9cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="----------#" value="{{x.factura}}"/>
<rtl:input-variable name="x.nombre_cliente" type="FGLString" expectedLocation="expectedHere"/>
<WORDWRAPBOX name="x.nombre_cliente Value" width="width(&quot;M&quot;)*20" alignment="baseline" floatingBehavior="enclosed" text="{{x.nombre_cliente}}"/>
<rtl:input-variable name="x.neto" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="x.neto Value" width="1cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{x.neto}}"/>
</LAYOUTNODE>
</rtl:match>
</rtl:match>
<MINIPAGE name="totalCondicion" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="WordBox3" width="3cm" floatingBehavior="enclosed" text="T. CONDI"/>
<rtl:input-variable name="total_condicion" type="FGLNumeric" expectedLocation="expectedHere"/>
<DECIMALFORMATBOX name="total_condicion Value" width="2cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{total_condicion}}"/>
</MINIPAGE>
</rtl:match>
<MINIPAGE name="totalGeneral" width="min" length="min" fontSize="8" layoutDirection="leftToRight">
<WORDBOX name="WordBox4" width="3cm" floatingBehavior="enclosed" text="T. GENERAL"/>
<rtl:input-variable name="total_venta" type="FGLNumeric" expectedLocation="expectedAhead"/>
<DECIMALFORMATBOX name="total_venta Value" width="2cm" anchorX="1" floatingBehavior="enclosed" textAlignment="right" format="---,---,---,--&amp;.&amp;&amp;" value="{{total_venta}}"/>
</MINIPAGE>
</MINIPAGE>
<rtl:match name="OnLastRow" nameConstraint="OnLastRow" minOccurs="0" maxOccurs="1"/>
</rtl:match>
</PXML>
</rtl:stylesheet>
</report:Report>
@@ -0,0 +1,81 @@
{
PROGRAMA : pventas_menu
OBJETIVO : Desplegar las opciones del menu
CREADO POR : Ing. Juan Soto
FECHA CREACION : Se
}
IMPORT os
CONSTANT filename = "puntoventa.data"
GLOBALS
DEFINE usuario,clave VARCHAR(50),
pperfil,pprinter1,pprinter2,ckprinter,cambia_c VARCHAR(100)
DEFINE dirs DYNAMIC ARRAY OF RECORD
ddir STRING
END RECORD
END GLOBALS
MAIN
DEFER INTERRUPT
WHENEVER ERROR CALL desplega_error
CALL STARTLOG("puntoventas.txt")
CALL autentificacion()
CALL menu_principal()
END MAIN
{================================================
FUNCION : AUTENTIFICACION
OBJETIVO : VALIDAR FUNCION DEL USUARIO
FECHA : 30/6/2009
PROGRAMADOR: JUAN SOTO
==================================================
}
FUNCTION autentificacion()
OPEN WINDOW inicio AT 1,1 WITH FORM "inicial"
INPUT BY NAME usuario,clave WITHOUT DEFAULTS
AFTER INPUT
IF INT_FLAG THEN
ERROR "OPERACION CANCELADA"
EXIT INPUT
END IF
CONNECT TO "smarmotech" USER usuario USING clave
IF STATUS < 0 THEN
ERROR "USUARIO NO ES VALIDO"
CONTINUE INPUT
END IF
SELECT a.cod_perfil,a.printerdefecto,a.otro_printer ,a.printer_cheque,a.cambia_clave
INTO pperfil,pprinter1,pprinter2,ckprinter,cambia_c
FROM seg0001 a
WHERE a.usuario = usuario
IF STATUS != 0 THEN
ERROR "APLICACION ESTA REPORTANDO UN ERROR, COMUNIQUESE CON SU ADMINISTRADOR"
END IF
UPDATE seg0001 SET seg0001.fecha_ultimo_login = getdate(),
seg0001.clave = clave WHERE seg0001.usuario = usuario
LET cambia_c = UPSHIFT(cambia_c)
IF cambia_c = "SI" THEN
CALL fgl_winmessage("INFO","DEBE CAMBIAR LA CLAVE","INFO")
CALL cambia_clave()
END IF
EXIT INPUT
END INPUT
CLOSE WINDOW inicio
END FUNCTION
FUNCTION menu_principal()
END FUNCTION
FUNCTION desplega_error()
DEFINE mensaje STRING
LET mensaje ="FAVOR DE VERIFICAR EL ERROR LOG PUNTOVENTAS.TXT",STATUS CLIPPED
CALL fgl_winmessage("ERROR",mensaje,"INFO")
END FUNCTION
+155
View File
@@ -0,0 +1,155 @@
USE [Facial]
GO
/****** Object: Trigger [dbo].[regentradas_insert] Script Date: 4/1/2023 9:33:47 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER TRIGGER [dbo].[regentradas_insert]
ON [dbo].[CHECKINOUT]
AFTER INSERT,UPDATE
AS
BEGIN
DECLARE @emp INT,@nombre varchar(100),@htrabajadas DATETIME,@hextras_35 decimal(12,2),@hextras_100 decimal(12,2),@numnomi INT,@fecha DATETIME,@tipoReg VARCHAR(1),@tipoemp VARCHAR(1),
@h_entrada time(7),@h_salida time(7),@fechaferiada DATE,@dia int,@mes int,@chfechaferiada VARCHAR(10),
@fechaEntrada DATETIME,@departamento INT,@puesto INT,@nivel INT,
@fechaInicioPeriodo date, @fechaFinPeriodo date
SET NOCOUNT ON;
SELECT @emp=a.num_emp,@nombre=RTRIM(a.nom1_emp)+' '+a.apell1_emp,@fecha=b.CHECKTIME,@tipoReg=b.CHECKTYPE,@tipoemp=a.nomina ,@departamento=a.departamento,@puesto=a.cod_puesto,@nivel=a.nivel_emp
from marmotech.dbo.adtb00003 a,inserted b where a.cuenta_out = b.USERID
SELECT @numnomi=MIN(a.num_nomi) FROM marmotech.dbo.notb00010 a WHERE a.fecha_cierre_nomina > @fecha and tipo_emp = @tipoemp
IF EXISTS(SELECT b.num_emp FROM marmotech.dbo.adtb00054 a,marmotech.dbo.adtb00055 b WHERE a.id_hora = b.id_horario and b.num_emp=@emp)
BEGIN
IF @tipoReg ='O'
BEGIN
SELECT @mes=month(@fecha)
SELECT @dia=day(@fecha)
/* CALCULO DIAS FERIADOS */
IF EXISTS(SELECT a.dias FROM marmotech.dbo.notb00012 a WHERE a.cod_mes = @mes and a.dias = @dia)
BEGIN
SELECT @fechaferiada=@fecha
END
SELECT 'FECHA FERIADA '+CAST(@fechaferiada AS VARCHAR)
/*============================================================== */
/*---------------------------------------------------------------------------- */
/* ACTUALIZA LA TABLA NOVEDADES DE NOMINA */
/* LOS CODIGOS DE MOVIMIENTOS 2 ES PARA HORAS EXTRAS AL 35% Y EL 3 PARA LAS HORAS EXTRAS AL 1005 */
IF @fechaferiada IS NULL
/* SI ES DIA NO FERIADO */
BEGIN
SELECT @h_entrada=a.entrada,@h_salida=a.salida FROM marmotech.dbo.adtb00054 a,marmotech.dbo.adtb00055 b WHERE a.id_hora = b.id_horario and b.num_emp=@emp
SELECT ' H SALIDA '+CAST(@h_salida AS CHAR)+' HORA 35% '+CAST(convert(time(7),@fecha) AS CHAR)
/*------------------------------------------------------------------------------------------------------------------------------------------ */
IF @h_salida < convert(time(7),@fecha)
BEGIN
SELECT @fechaEntrada=convert(char(10),a.checktime,101)+' '+ convert(char(5),@h_salida) from inserted a
SELECT @hextras_35=DATEDIFF(hour,@fechaEntrada,a.CHECKTIME ) from inserted a
IF EXISTS(SELECT TOP 1 a.num_emp FROM marmotech.dbo.notb00007 a WHERE a.num_nomi = @numnomi AND a.num_Emp = @emp AND a.cod_mov = 2)
BEGIN
UPDATE marmotech.dbo.notb00007 set cantidad = cantidad + @hextras_35,us_mod = 'TRIGGER',fech_mod = getdate()
WHERE num_nomi = @numnomi AND num_emp = @emp and cod_mov = 2
END
ELSE
IF @hextras_35 > 0
BEGIN
INSERT INTO marmotech.dbo.notb00007 (num_nomi,tipo_emp,cod_mov,num_emp,departamento,cod_puesto,nivel_emp,cantidad,valor,us_crea,fech_crea)
VALUES (@numnomi,@tipoemp,2,@emp,@departamento,@puesto,@nivel,@hextras_35,0,'TRIGGER',getdate())
END
END
END /* TERMINA NO DIA FERIADO */
/*----------------------------------------------------------------------------------------------------------------------------------------------------- */
ELSE
BEGIN /* DIA FERIADO */
SELECT @h_entrada=a.entrada,@h_salida=a.salida FROM marmotech.dbo.adtb00054 a,marmotech.dbo.adtb00055 b WHERE a.id_hora = b.id_horario and b.num_emp=@emp
IF @h_salida < convert(time(7),@fecha)
BEGIN
SELECT @fechaEntrada=convert(char(10),a.checktime,101)+' '+ convert(char(5),@h_salida) from inserted a
SELECT @hextras_100=DATEDIFF(hour,@fechaEntrada,a.CHECKTIME ) from inserted a
SELECT 'H SALIDA '+CAST(@h_salida AS VARCHAR)+' TRAB H 100 '+CAST(convert(time(7),@fecha) AS CHAR)+' EMP '+cast(@emp as varchar)+' '+CAST(@numnomi AS VARCHAR)
IF EXISTS(SELECT TOP 1 a.num_emp FROM marmotech.dbo.notb00007 a WHERE a.num_nomi = @numnomi AND a.num_Emp = @emp AND a.cod_mov = 3)
BEGIN
UPDATE marmotech.dbo.notb00007 set cantidad = cantidad + @hextras_100,us_mod = 'TRIGGER',fech_mod = getdate()
WHERE num_nomi = @numnomi AND num_emp = @emp and cod_mov = 3
END
ELSE
IF @hextras_100 > 0
BEGIN
INSERT INTO marmotech.dbo.notb00007 (num_nomi,tipo_emp,cod_mov,num_emp,departamento,cod_puesto,nivel_emp,cantidad,valor,us_crea,fech_crea)
VALUES (@numnomi,@tipoemp,3,@emp,@departamento,@puesto,@nivel,@hextras_100,0,'TRIGGER',getdate())
END
END /* TERMINA DIA FERIADO */
END /* TERMINA TIPO REGISTRO */
END /* SI TIENE HORARIO */
END
/* INSERTA LA DATA EN LA BASE DE DATOS DEL SITEMA DE NOMINAS */
IF NOT EXISTS (SELECT TOP 1 a.LOGID FROM marmotech.dbo.CHECKINOUT a,inserted b where a.LOGID = b.LOGID)
BEGIN
INSERT INTO marmotech.[dbo].[CHECKINOUT]
([USERID]
,[CHECKTIME]
,[CHECKTYPE]
,[VERIFYCODE]
,[SENSORID]
,[LOGID]
,[MachineId]
,[UserExtFmt]
,[WorkCode]
,[Memoinfo]
,[sn]
,[num_emp]
,[nombre_empleado]
,h_trabajadas
,h_extras35
,h_extras100
,num_nomi
)
SELECT
USERID
,CHECKTIME
,CHECKTYPE
,VERIFYCODE
,SENSORID
,LOGID
,MachineId
,UserExtFmt
,WorkCode
,Memoinfo
,sn
,@emp
,@nombre
,@htrabajadas
,@hextras_35
,@hextras_100
,@numnomi
FROM inserted
END
ELSE
BEGIN
WITH checke as (select * from marmotech.dbo.checkinout)
UPDATE X
SET [USERID] = x1.USERID
,[CHECKTIME] = x1.CHECKTIME
,[CHECKTYPE] = x1.CHECKTYPE
,[VERIFYCODE] = x1.VERIFYCODE
,[SENSORID] = x1.SENSORID
,[MachineId] = x1.MachineId
,[UserExtFmt] = x1.UserExtFmt
,[WorkCode] = x1.WorkCode
,[Memoinfo] = x1.Memoinfo
,[sn] = x1.sn
,num_emp = @emp
,nombre_empleado = @nombre
from checke as x
INNER JOIN checkinout x1 ON x1.logid = x.logid
END
END
@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="UTF-8" ?>
<APPLICATION Parent="defaultgwc" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.4js.com/ns/gas/3.20/cfextwa.xsd">
<EXECUTION>
<PATH>$(res.deployment.path)</PATH>
<MODULE>Application.42r</MODULE>
</EXECUTION>
</APPLICATION>
+28
View File
@@ -0,0 +1,28 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{e638c13f-5691-4f1f-9058-50f131e39bcd}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="s_tems" order="" uid="{3dff7f3c-4344-4a80-a238-130a87c38e07}" where="">
<RecordField colName="" fieldIdRef="1" name="codigo_prod" sqlTabName="" table_alias_name="" uid="{22305946-3a3c-44fa-926e-d3fe48f3d244}"/>
<RecordField colName="" fieldIdRef="2" name="Edit2" sqlTabName="" table_alias_name="" uid="{d2114939-9d68-4dc4-a8b8-e7d67d35c38e}"/>
</Record>
<Form gridHeight="25" gridWidth="80" name="Form" text="Form">
<VBox gridHeight="17" gridWidth="67" name="VBox1" posX="2" posY="1">
<Group gridHeight="7" gridWidth="67" name="Group1" posX="0" posY="1" text="">
<Grid gridHeight="5" gridWidth="41" name="grid1" posX="5" posY="1">
<Label gridHeight="1" gridWidth="28" name="Label1" posX="6" posY="1" text="BUSQUEDA ARTICULOS"/>
</Grid>
</Group>
<Group gridHeight="8" gridWidth="67" name="Group2" posX="0" posY="8" text="">
<Table gridHeight="6" gridWidth="42" name="Table1" posX="9" posY="1" totalRows="5">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="1" gridHeight="1" gridWidth="8" name="codigo_prod" posX="0" posY="0" sqlTabName="" tabIndex="1" table_alias_name="" title="Codigo" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="2" gridHeight="1" gridWidth="8" name="Edit2" posX="8" posY="0" sqlTabName="" tabIndex="2" table_alias_name="" title="Descripcion" widget="Edit"/>
</Table>
</Group>
</VBox>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewAzAGQAZgBmADcAZgAzAGMALQA0ADMANAA0AC0ANABhADgAMAAtAGEAMgAzADgALQAxADMAMABhADgANwBjADMAOABlADAANwB9QCQAAAUAAABAJAAABQAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+121
View File
@@ -0,0 +1,121 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm databaseName="smarmotech" fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{8add3543-3391-4600-abee-8b101427e9e9}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="encabeza" order="" uid="{b03914d1-6311-40bc-9ac0-859303224e16}" where="">
<RecordField colName="" fieldIdRef="1" name="codigo_id" sqlTabName="" table_alias_name="" uid="{375050a0-a7f0-4ea4-a374-0b0acde56059}"/>
<RecordField colName="" fieldIdRef="2" name="nombre_cliente" sqlTabName="" table_alias_name="" uid="{c1b74670-d66f-4f6d-8a12-a6a29318693c}"/>
<RecordField colName="" fieldIdRef="3" name="fecha_factura" sqlTabName="" table_alias_name="" uid="{0db46284-bcda-4e18-851c-40df0ca2945b}"/>
<RecordField colName="userid" defaultValue="2" fieldIdRef="5" fieldType="NON_DATABASE" name="cond_pago" sqlTabName="account" sqlType="CHAR" table_alias_name="" uid="{680b0b65-a28a-4053-9c3c-9e5ef8288dcc}"/>
<RecordField colName="" fieldIdRef="4" name="estado" sqlTabName="" table_alias_name="" uid="{41185302-57f5-4bcf-bfb2-cd45753e73b1}"/>
<RecordField colName="" fieldIdRef="13" name="factura_no" sqlTabName="" table_alias_name="" uid="{23b5719a-a116-4765-8b31-5a210b8d78fe}"/>
<RecordField colName="" fieldIdRef="14" name="bruto" sqlTabName="" table_alias_name="" uid="{df82d65d-cf68-4bbc-aff1-7f5c733a2759}"/>
<RecordField colName="" fieldIdRef="15" name="descuento" sqlTabName="" table_alias_name="" uid="{658bafb2-52ab-4a29-b73b-1ec601ef6898}"/>
<RecordField colName="" fieldIdRef="16" name="sub_total" sqlTabName="" table_alias_name="" uid="{6d13fc4d-f6a7-407c-ab4b-f65e361ae379}"/>
<RecordField colName="" fieldIdRef="17" name="neto" sqlTabName="" table_alias_name="" uid="{35edc002-f5f7-4aba-921e-9dd4d235a3cf}"/>
<RecordField colName="" fieldIdRef="18" name="itbis" sqlTabName="" table_alias_name="" uid="{79fe16c5-87ba-479d-8f60-4b48f6488b55}"/>
<RecordField fieldIdRef="27" name="foto" uid="{62eb3b18-ec2d-44cd-bdc4-02ade8d05a6b}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{910485c7-0247-433c-9592-01368090cc02}" where="">
<RecordField colName="" fieldIdRef="21" name="balance" sqlTabName="" table_alias_name="" uid="{656c88da-26f6-4b00-9246-ebcad5282c93}"/>
<RecordField colName="" fieldIdRef="22" name="limite_cr" sqlTabName="" table_alias_name="" uid="{e68dead3-4629-4e05-8468-7a6bddb282ec}"/>
<RecordField colName="" fieldIdRef="23" name="nombre_cia" sqlTabName="" table_alias_name="" uid="{8f9c1fc0-39fc-4a9d-88d8-dc094643ff3d}"/>
<RecordField colName="" fieldIdRef="24" name="pfecha" sqlTabName="" table_alias_name="" uid="{7b44738e-d0f0-4d9a-a506-6fa80c9ab762}"/>
<RecordField colName="" defaultValue="0" fieldIdRef="25" name="preview" sqlTabName="" table_alias_name="" uid="{ffddabf1-244d-4ffb-bfd5-8a8b25084305}"/>
<RecordField colName="" fieldIdRef="26" name="fecha1" sqlTabName="" table_alias_name="" uid="{80bab637-1002-4976-bcff-edd256ea51fa}"/>
</Record>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="record2" order="" uid="{03ca8956-fa08-4704-9634-8e7038e4ddbc}" where="">
<RecordField colName="" fieldIdRef="6" name="codigo_prod" sqlTabName="" table_alias_name="" uid="{71b7135f-12da-46a6-a6fe-6d6839177626}"/>
<RecordField colName="" fieldIdRef="7" name="descripcion" sqlTabName="" table_alias_name="" uid="{5cae9377-56a0-46d2-8cfa-81b8c5e7b08c}"/>
<RecordField colName="" fieldIdRef="8" name="cantidad" sqlTabName="" table_alias_name="" uid="{146c31b5-9934-4977-918e-1ec8b94de6c7}"/>
<RecordField colName="" fieldIdRef="9" name="precio" sqlTabName="" table_alias_name="" uid="{66a88eb1-6ca7-4dde-a59b-4b869737e4f4}"/>
<RecordField colName="" fieldIdRef="10" name="ddescuento" sqlTabName="" table_alias_name="" uid="{72a25ff1-ef52-4737-bf93-b6dbd21526b0}"/>
<RecordField colName="" fieldIdRef="11" name="valor_desc" sqlTabName="" table_alias_name="" uid="{0f22c9b7-1b63-4f0e-b298-641d1907c903}"/>
<RecordField colName="" fieldIdRef="12" name="pitbis" sqlTabName="" table_alias_name="" uid="{d326276b-4614-4c46-89df-cc3b5bfe0b9a}"/>
<RecordField colName="" fieldIdRef="19" name="valor_itbis" sqlTabName="" table_alias_name="" uid="{c868ca48-7dfa-4590-8ff1-b943892f6618}"/>
<RecordField colName="" fieldIdRef="20" name="valor" sqlTabName="" table_alias_name="" uid="{030c20ae-43cb-4c61-b173-3a7e359d6bbf}"/>
</Record>
<Form gridHeight="28" gridWidth="199" name="Form" text="FACTURA PUNTO VENTAS">
<ToolBar name="ToolBar1">
<ToolBarItem image="new" name="Nuevo" text="Nueva"/>
<ToolBarItem image="find" name="Buscar" text="Buscar"/>
<ToolBarItem comment="Imprimir" image="printer" name="imprime" text="Imprimir"/>
<ToolBarItem image="notebook" name="listado" text="Reporte"/>
<ToolBarItem image="garbage" name="anular" text="Anular"/>
<ToolBarSeparator name="ToolBarSeparator1"/>
<ToolBarItem image="quit" name="Salir" text="Salir"/>
</ToolBar>
<VBox gridHeight="27" gridWidth="198" name="VBox1" posX="1" posY="0">
<Grid gridHeight="6" gridWidth="198" name="Grid1" posX="0" posY="1">
<Group gridHeight="4" gridWidth="76" name="Group1" posX="1" posY="1" text="">
<Label gridHeight="1" gridWidth="7" name="usuario" posX="1" posY="1" text=""/>
<Label blink="true" color="red" gridHeight="1" gridWidth="24" name="Label7" posX="25" posY="1" text="&lt;F12&gt; GUARDA FACTURA"/>
<Label gridHeight="1" gridWidth="11" name="fecha" posX="63" posY="1" text=""/>
<Label gridHeight="1" gridWidth="11" name="Label1" posX="1" posY="2" text="veprmt022"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="23" gridHeight="1" gridWidth="29" justify="center" name="nombre_cia" posX="24" posY="2" sqlTabName="" tabIndex="14" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="11" name="hora" posX="63" posY="2" text=""/>
</Group>
</Grid>
<Grid gridHeight="11" gridWidth="198" name="Grid2" posX="0" posY="7">
<Group gridHeight="9" gridWidth="86" name="Group3" posX="2" posY="1" text="Informaciones Cliente">
<Label gridHeight="1" gridWidth="8" name="Label2" posX="1" posY="1" text="Factura No."/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="13" gridHeight="1" gridWidth="11" name="factura_no" posX="10" posY="1" sqlTabName="" tabIndex="6" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label6" posX="22" posY="1" text="Limite Credito"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="22" gridHeight="1" gridWidth="10" name="limite_cr" posX="34" posY="1" sqlTabName="" tabIndex="13" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label8" posX="45" posY="1" text="F. Factura"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="3" gridHeight="1" gridWidth="13" name="fecha_factura" posX="56" posY="1" sqlTabName="" tabIndex="-1" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="10" name="Restante2" posX="74" posY="1" text="Fecha Cierre"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" color="red" fieldId="24" gridHeight="1" gridWidth="10" name="pfecha" posX="74" posY="2" sqlTabName="" tabIndex="15" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="Label3" posX="1" posY="3" text="Condiciones"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="userid" defaultValue="2" fieldId="5" fieldType="NON_DATABASE" gridHeight="1" gridWidth="33" items="CREDITO EMPLEADOS, OTRAS FACTURAS" length="1" name="cond_pago" posX="10" posY="3" sqlTabName="account" sqlType="CHAR" tabIndex="-1" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="2" text="CREDITO EMPLEADOS"/>
<Item lstrtext="false" name="1" text="OTRAS FACTURAS"/>
</ComboBox>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="14" gridHeight="1" gridWidth="10" name="bruto" posX="44" posY="3" sqlTabName="" tabIndex="7" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="l1" posX="55" posY="3" text="Total Bruto"/>
<Label gridHeight="1" gridWidth="10" name="Restante1" posX="74" posY="3" text="Fecha Nomina"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="15" gridHeight="1" gridWidth="10" name="descuento" posX="44" posY="4" sqlTabName="" tabIndex="8" table_alias_name="" title="Edit2" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="l2" posX="55" posY="4" text="Descuento"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" color="red" fieldId="26" gridHeight="1" gridWidth="10" name="fecha1" posX="74" posY="4" sqlTabName="" tabIndex="17" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="8" name="Label4" posX="1" posY="5" text="Cliente"/>
<ButtonEdit action="empleados" aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="1" gridHeight="1" gridWidth="6" name="codigo_id" posX="10" posY="5" required="false" sqlTabName="" tabIndex="-1" table_alias_name="" title="Edit1" widget="ButtonEdit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="2" gridHeight="1" gridWidth="25" name="nombre_cliente" posX="18" posY="5" sqlTabName="" tabIndex="-1" table_alias_name="" title="Edit2" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="18" gridHeight="1" gridWidth="10" name="itbis" posX="44" posY="5" sqlTabName="" tabIndex="11" table_alias_name="" title="Edit3" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="L3" posX="55" posY="5" text="ITBIS"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="16" gridHeight="1" gridWidth="10" name="sub_total" posX="44" posY="6" sqlTabName="" tabIndex="9" table_alias_name="" title="Edit3" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="L4" posX="55" posY="6" text="Sub total" underline="true"/>
<Label gridHeight="1" gridWidth="10" name="Restante" posX="74" posY="6" text="Balance"/>
<Label gridHeight="1" gridWidth="8" name="Label5" posX="1" posY="7" text="Estado"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" blink="true" case="upper" colName="" fieldId="4" gridHeight="1" gridWidth="15" name="estado" noEntry="true" posX="10" posY="7" sqlTabName="" tabIndex="5" table_alias_name="" title="Edit1" widget="Edit"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="0" fieldId="25" gridHeight="1" gridWidth="15" items="Directo, Vista Previa" name="preview" posX="27" posY="7" sqlTabName="" tabIndex="16" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="0" text="Directo"/>
<Item lstrtext="false" name="1" text="Vista Previa"/>
</ComboBox>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="17" gridHeight="1" gridWidth="10" name="neto" posX="44" posY="7" sqlTabName="" tabIndex="10" table_alias_name="" title="Edit4" widget="Edit"/>
<Label gridHeight="1" gridWidth="9" name="L5" posX="55" posY="7" text="Neto"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="21" gridHeight="1" gridWidth="10" name="balance" posX="74" posY="7" sqlTabName="" tabIndex="12" table_alias_name="" title="Edit1" widget="Edit"/>
</Group>
<Group gridHeight="9" gridWidth="15" name="group2" posX="91" posY="1">
<FFImage autoScale="true" fieldId="27" gridHeight="1" gridWidth="10" name="foto" posX="1" posY="2" stretch="both" title="ffimage1" widget="FFImage"/>
</Group>
</Grid>
<Grid gridHeight="8" gridWidth="198" name="grid3" posX="0" posY="18">
<Table gridHeight="6" gridWidth="104" name="Table1" posX="3" posY="2" totalRows="5" unitWidth="columns" width="0">
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="F12 GUARDA LA FACTURA" fieldId="6" gridHeight="1" gridWidth="8" name="codigo_prod" posX="0" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Codigo" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="F12 GUARDA FACTURA" fieldId="7" gridHeight="1" gridWidth="30" name="descripcion" noEntry="false" posX="8" posY="0" sizePolicy="dynamic" sqlTabName="" tabIndex="-1" table_alias_name="" title="Descripcion" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="F12 GUARDA FACTURA" fieldId="8" gridHeight="1" gridWidth="8" name="cantidad" posX="38" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Cantidad" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" comment="F12 GUARDA FACTURA" fieldId="9" gridHeight="1" gridWidth="8" name="precio" posX="46" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Precio" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="10" gridHeight="1" gridWidth="8" name="ddescuento" posX="54" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Descuento" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="11" gridHeight="1" gridWidth="8" name="valor_desc" noEntry="true" posX="62" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Valor Descuento" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="12" gridHeight="1" gridWidth="8" name="pitbis" noEntry="true" posX="70" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Itbis" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="19" gridHeight="1" gridWidth="8" name="valor_itbis" noEntry="true" posX="78" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Valor Itbis" widget="Edit"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="20" gridHeight="1" gridWidth="8" name="valor" noEntry="true" posX="86" posY="0" sqlTabName="" tabIndex="-1" table_alias_name="" title="Valor" widget="Edit"/>
</Table>
</Grid>
</VBox>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA5ADEAMAA0ADgANQBjADcALQAwADIANAA3AC0ANAAzADMAYwAtADkANQA5ADIALQAwADEAMwA2ADgAMAA5ADAAYwBjADAAMgB9QD4AADSAACZAPgAANIAAJgAAAAAAAAAAAQAAAEwAewBiADAAMwA5ADEANABkADEALQA2ADMAMQAxAC0ANAAwAGIAYwAtADkAYQBjADAALQA4ADUAOQAzADAAMwAyADIANABlADEANgB9QGEAAB3AABdAUoAAIGAAGT+AYk3S8an8AQAAAEwAewAwADMAYwBhADgAOQA1ADYALQBmAGEAMAA4AC0ANAA3ADAANAAtADkANgAzADQALQA4AGUANwAwADMAOABlADQAZABkAGIAYwB9QEAAAAgAAAFAQAAACAAAAT+EeuFHrhR8AQ==]]>
</DiagramLayout>
</ManagedForm>
+41
View File
@@ -0,0 +1,41 @@
<?xml version="1.0" encoding="UTF-8" ?>
<ManagedForm fileVersion="31400" gstVersion="31408" name="ManagedForm" uid="{f794061a-8eee-4b79-b1c4-7ea41323d215}">
<AGSettings>
<DynamicProperties version="2"/>
</AGSettings>
<Record additionalTables="" joinLeft="" joinOperator="" joinRight="" name="Undefined" order="" uid="{8786542a-c5fa-40e7-b6d5-984252cb02b9}" where="">
<RecordField colName="" fieldIdRef="1" name="Fecha_inicial" sqlTabName="" table_alias_name="" uid="{40282e78-2298-4245-a86f-37eeccbbfa5e}"/>
<RecordField colName="" fieldIdRef="2" name="Fecha_final" sqlTabName="" table_alias_name="" uid="{ca358ec0-a2c1-4012-81e3-c2d4df5f30fc}"/>
<RecordField colName="" fieldIdRef="3" name="codigo_id" sqlTabName="" table_alias_name="" uid="{92c3fc12-d0b9-49cf-aa8c-1efb20198e61}"/>
<RecordField colName="" fieldIdRef="4" name="cond_pago" sqlTabName="" table_alias_name="" uid="{dce8e0dc-bc27-4a69-b910-a78eab2d10b0}"/>
<RecordField colName="" defaultValue="0" fieldIdRef="5" name="preview" sqlTabName="" table_alias_name="" uid="{da138fae-a88c-40eb-9081-d9f3f7fc6649}"/>
<RecordField colName="" defaultValue="Resumen" fieldIdRef="6" name="forma_reporte" sqlTabName="" table_alias_name="" uid="{514e8a45-76a0-4dad-9a6e-9c62f3837e0b}"/>
</Record>
<Form gridHeight="12" gridWidth="64" name="Form" perHeaderComment="RELACION FACTURAS" text="Form">
<Grid gridHeight="10" gridWidth="58" name="Grid1" posX="2" posY="1">
<Label gridHeight="1" gridWidth="10" name="label1" posX="3" posY="2" text="Fecha Inicial"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="1" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="Fecha_inicial" posX="18" posY="2" required="true" sqlTabName="" tabIndex="1" table_alias_name="" title="DateEdit1" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="10" name="Label3" posX="30" posY="2" text="CLIENTE(S)"/>
<Edit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="3" gridHeight="1" gridWidth="10" name="codigo_id" posX="42" posY="2" sqlTabName="" tabIndex="3" table_alias_name="" title="Edit1" widget="Edit"/>
<Label gridHeight="1" gridWidth="10" name="Label2" posX="3" posY="4" text="Fecha Final"/>
<DateEdit aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="2" format="dd/mm/yyyy" gridHeight="1" gridWidth="10" name="Fecha_final" posX="18" posY="4" sqlTabName="" tabIndex="2" table_alias_name="" title="DateEdit2" widget="DateEdit"/>
<Label gridHeight="1" gridWidth="10" name="Label4" posX="30" posY="4" text="CONDICIONES"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" fieldId="4" gridHeight="1" gridWidth="14" items="CREDITO EMPLEADO, OTRAS FACTURAS" name="cond_pago" posX="42" posY="4" sqlTabName="" tabIndex="4" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="2" text="CREDITO EMPLEADO"/>
<Item lstrtext="false" name="1" text="OTRAS FACTURAS"/>
</ComboBox>
<Label gridHeight="1" gridWidth="10" name="Label5" posX="3" posY="6" text="Salida"/>
<ComboBox aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="0" fieldId="5" gridHeight="1" gridWidth="15" items="Directo, Vista Previa" name="preview" posX="18" posY="6" sqlTabName="" tabIndex="5" table_alias_name="" title="ComboBox1" widget="ComboBox">
<Item lstrtext="false" name="0" text="Directo"/>
<Item lstrtext="false" name="1" text="Vista Previa"/>
</ComboBox>
<RadioGroup aggregateColName="" aggregateName="" aggregateTableAliasName="" aggregateTableName="" colName="" defaultValue="Resumen" fieldId="6" gridHeight="3" gridWidth="16" items="Resumen, Detalle" name="forma_reporte" posX="39" posY="6" sqlTabName="" tabIndex="6" table_alias_name="" title="RadioGroup1" widget="RadioGroup">
<Item lstrtext="false" name="Resumen" text="Resumen"/>
<Item lstrtext="false" name="Detalle" text="Detalle"/>
</RadioGroup>
</Grid>
</Form>
<DiagramLayout>
<![CDATA[AAAAAgAAAEwAewA4ADcAOAA2ADUANAAyAGEALQBjADUAZgBhAC0ANAAwAGUANwAtAGIANgBkADUALQA5ADgANAAyADUAMgBjAGIAMAAyAGIAOQB9AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQ==]]>
</DiagramLayout>
</ManagedForm>
+118
View File
@@ -0,0 +1,118 @@
FUNCTION busca_empleado()
DEFINE criterio,selec1 VARCHAR(1000),
buscar_emp DYNAMIC ARRAY OF RECORD
num_emp INT,
departamento SMALLINT,
nivel_emp SMALLINT,
cod_puesto SMALLINT,
nom1_emp VARCHAR(30),
nom2_emp VARCHAR(30),
apell1_emp VARCHAR(30),
apell2_emp VARCHAR(30)
END RECORD,
idx SMALLINT
OPEN WINDOW busqueda AT 7,10 WITH FORM "adfmwd004"
ATTRIBUTE (BORDER,FORM LINE FIRST + 2, comment line last)
CONSTRUCT criterio ON adtb00003.nom1_emp,adtb00003.nom2_emp,
adtb00003.apell1_emp,adtb00003.apell2_emp
FROM nom1_emp,nom2_emp,apell1_emp,apell2_emp
LET selec1 = "SELECT num_emp,departamento,nivel_emp,cod_puesto, ",
"nom1_emp,nom2_emp,apell1_emp,apell2_emp FROM adtb00003 ",
" WHERE ",
" status_t is null AND ",
criterio clipped,
"ORDER BY nom1_emp "
PREPARE busca1 FROM selec1
DECLARE local1 CURSOR FOR busca1
LET idx = 1
FOREACH local1 INTO buscar_emp[idx].*
IF status = NOTFOUND THEN
CALL fgl_winmessage("ERROR","NO EXISTEN REGISTROS","INFO")
EXIT FOREACH
END IF
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY buscar_emp TO s_empleado.*
AFTER DISPLAY
LET idx = arr_curr()
EXIT DISPLAY
END DISPLAY
CLOSE WINDOW busqueda
RETURN buscar_emp[idx].num_emp,buscar_emp[idx].nom1_emp,
buscar_emp[idx].nom2_emp,
buscar_emp[idx].apell1_emp,
buscar_emp[idx].apell2_emp
END FUNCTION
FUNCTION busca_articulos(parametro,criterio)
DEFINE criterio,selec1 VARCHAR(500),
parametro CHAR(1),
items DYNAMIC ARRAY OF RECORD
codigo_prod VARCHAR(25),
descripcion VARCHAR(80),
itbis DEC(8,2)
END RECORD,
idx SMALLINT
OPEN WINDOW fx1 AT 7,10 WITH FORM "vefmwd001"
IF parametro = "N" THEN
CONSTRUCT BY NAME criterio ON a.descripcion
LET selec1 =
"SELECT a.* FROM puntoventas.dbo.iptb00002 a WHERE %",criterio CLIPPED, "% and ",
" a.status_t is null "
ELSE
LET selec1=
" SELECT a.descripcion,a.itbis ",
"FROM puntoventas.dbo.iptb00002 a ",
"WHERE CAST(a.id_producto AS VARCHAR(6))+RTRIM(a.descripcion) like %",criterio CLIPPED,"%"
END IF
PREPARE comando FROM selec1
DECLARE busca2 CURSOR FOR comando
LET idx = 1
FOREACH busca2 INTO items[idx].*
LET idx = idx + 1
END FOREACH
CALL set_count(idx-1)
DISPLAY ARRAY items TO s_tems.*
AFTER DISPLAY
IF INT_FLAG THEN
CALL fgl_winmessage("INFO","OPERACION CANCELADA","INFO")
EXIT DISPLAY
END IF
EXIT DISPLAY
END DISPLAY
IF INT_FLAG THEN
LET INT_FLAG = FALSE
LET items[idx].codigo_prod=NULL
LET items[idx].descripcion=NULL
END IF
RETURN items[idx].codigo_prod,items[idx].descripcion,items[idx].itbis
CLOSE WINDOW fx1
END FUNCTION
FUNCTION err_mensajes(num_msg)
DEFINE num_msg INT,
descripcion CHAR(60)
SELECT a.desc_msg INTO descripcion
FROM msgtable a
WHERE a.cod_msg = num_msg
IF STATUS = NOTFOUND THEN
LET descripcion = num_msg USING "--###","MENSAJE NO EXISTE"
CALL fgl_winmessage("ERROR",descripcion,"INFO")
RETURN
ELSE
CALL fgl_winmessage("ERROR",descripcion,"INFO")
RETURN
END IF
END FUNCTION
+856
View File
@@ -0,0 +1,856 @@
{
======================================================================
PROGRAMA : veprmt022
OBJETIVO : Administrar facturacion (PUNTO VENTAS CAFETERIA)
PROGRAMADOR : ING. JUAN SOTO
FECHA CREACION : 23/4/2014
======================================================================
}
SCHEMA smarmotech
GLOBALS
DEFINE usuarios,clave CHAR(80),
p_companias RECORD LIKE companias.*,
estado,guarde,pcredito VARCHAR(3),
hora CHAR(16),
nombre_cia VARCHAR(60),
limite_cr,balance DEC(12,2),
ruta_foto STRING
DEFINE encabezado RECORD
factura_no INT,
fecha_factura DATE,
cond_pago SMALLINT,
codigo_id INT,
nombre_cliente VARCHAR(90),
bruto DEC(12,2),
descuento DEC(12,2),
itbis DEC(12,2),
sub_total DEC(12,2),
neto DEC(12,2),
estado VARCHAR(30)
END RECORD
DEFINE detalle DYNAMIC ARRAY OF RECORD
codigo_prod CHAR(25),
descripcion VARCHAR(80),
cantidad DEC(12,2),
precio DEC(12,2),
ddescuento DEC(12,2),
valor_desc DEC(12,2),
pitbis DEC(12,2),
valor_itbis DEC(12,2),
valor DEC(12,2)
END RECORD,
idx,scr_l,idx1,Pdepartamento SMALLINT,
pfecha,fecha1,fecha2 DATE,
foto_empleado BYTE
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
r_filename STRING, -- filename of Report Design Document including .4rp extension
r_output STRING, -- output format option
preview INTEGER -- TRUE/FALSE, to set preview option
END GLOBALS
MAIN
DEFINE selec1 VARCHAR(200),
dias_credito SMALLINT
DEFER INTERRUPT
CALL STARTLOG("veprmt22.log")
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
LET usuarios = 'ptventas'
LET clave = 'Cafeteria'
CONNECT to "smarmotech" USER usuarios USING clave
LET selec1 = "SELECT a.nombre,a.limite_credito,a.dias_credito from puntoventas.dbo.companias a where a.cod_cia = 1"
PREPARE ciacomando FROM selec1
EXECUTE ciacomando INTO nombre_Cia,limite_cr,dias_credito
SELECT CONVERT(CHAR(10),MAX(a.fecha_cierre_nomina),103) INTO pfecha FROM notb00010 a
WHERE a.fecha_cierre_nomina < today
IF pfecha IS NULL THEN
CALL fgl_Winmessage("ERROR","NO PUEDES REALIZAR FACTURAS, NO EXISTE FECHA CIERRE NOMINA","INFO")
EXIT PROGRAM
END IF
SELECT CONVERT(char(10),MIN(a.fecha_cierre_nomina),103) INTO fecha1 FROM notb00010 a
WHERE a.fecha_cierre_nomina > pfecha
LET pfecha = pfecha + 1
CALL veprmt022()
END MAIN
FUNCTION veprmt022()
OPEN WINDOW fw1 WITH FORM "vepfmmt001"
DISPLAY BY NAME limite_cr,nombre_cia,pfecha,fecha1
MENU
ON ACTION nuevo
LET estado = "N"
CALL veprmtad22()
ON ACTION buscar
LET estado = "M"
CALL veprmtad22()
ON ACTION listado
CALL relacion()
ON ACTION salir
EXIT MENU
EXIT PROGRAM
END MENU
CLOSE WINDOW fw1
END FUNCTION
FUNCTION veprmtad22()
DEFINE nom1_emp,nom2_emp,apell1_emp,apell2_emp VARCHAR(30),
respuesta CHAR(3),
selec1,insert1 CHAR(500),
Pnivel_emp,Pcod_puesto INT,
ptipo CHAR(1)
DIALOG ATTRIBUTE (FIELD ORDER FORM, UNBUFFERED)
INPUT BY NAME encabezado.*,preview ATTRIBUTE(WITHOUT DEFAULTS)
BEFORE INPUT
CALL detalle.clear()
INITIALIZE encabezado.* TO NULL
LET encabezado.cond_pago=2
DISPLAY BY NAME encabezado.*
LET selec1 = "SELECT SUM(a.valor) FROM notb00008 a WHERE a.num_emp = ? ",
"AND a.cod_mov = 19 AND a.fecha between ? and ? and a.clase_mov ='F' and status_t is null "
PREPARE suma_facturas FROM selec1
LET selec1 = "UPDATE puntoventas.dbo.vetb00002 set status_t = 'E',us_mod = '",usuarios,"', fech_mod = getdate() ",
" WHERE factura = ? "
PREPARE upcomando1 FROM selec1
LET selec1 = "DELETE FROM notb00008 ",
" WHERE num_nomi = ? and cod_mov = 19 and clase_mov = 'F' AND fecha = ? "
PREPARE upcomando2 FROM selec1
LET selec1 = "UPDATE notb00011 set status_t = 'E',us_mod ='",usuarios CLIPPED,"',fech_mod = getdate() ",
" WHERE num_doc = ? and cod_mov = 19 AND num_emp = ? "
PREPARE upcomando3 FROM selec1
LET insert1 =
"INSERT INTO puntoventas.dbo.vetb00003 (factura,id_producto,descripcion,cantidad,precio,descuento,itbis,valor) ",
" VALUES (?,?,?,?,?,?,?,?) "
PREPARE inscomando FROM insert1
LET insert1 =
"INSERT INTO puntoventas.dbo.vetb00002 (factura,fecha_factura,fecha_nomina,codigo_id,cond_pago,nombre_cliente, ",
"bruto,descuento,itbis,sub_total,neto,us_crea,fech_crea) ",
"VALUES (?,?, ?,?,?, ?,?,?, ?,?,?, ?,getdate())"
PREPARE inscomando1 FROM insert1
LET selec1 = "SELECT MAX(a.factura) FROM puntoventas.dbo.vetb00002 a "
PREPARE comando2 FROM selec1
IF estado ='M' THEN
LET selec1 =
" SELECT a.factura,CONVERT(CHAR(10),a.fecha_factura,103),CONVERT(CHAR(10),a.fecha_nomina,103),a.cond_pago,a.codigo_id, ",
"a.nombre_cliente,a.bruto,a.descuento,a.itbis,a.sub_total, ",
"a.neto,CASE a.status_t WHEN 'E' THEN 'ANULADA' ELSE 'ACTIVA' END,b.departamento, ",
" b.nomina ",
"FROM puntoventas.dbo.vetb00002 a LEFT OUTER JOIN adtb00003 b ON a.codigo_id = b.num_emp ",
"WHERE a.factura = ? "
PREPARE comand1 FROM selec1
NEXT FIELD factura_no
ELSE
LET encabezado.fecha_factura= TODAY
DISPLAY BY NAME encabezado.fecha_factura
END IF
ON ACTION empleados
CALL busca_empleado() RETURNING encabezado.codigo_id,nom1_emp,
nom2_emp,apell1_emp,apell2_emp
LET encabezado.nombre_cliente=nom1_emp CLIPPED," ",nom2_emp CLIPPED," ",
apell1_emp CLIPPED," ",apell2_emp
DISPLAY BY NAME encabezado.nombre_cliente,encabezado.codigo_id
{ ON ACTION anular
IF estado = "M" THEN
LET respuesta= fgl_winquestion("ANULAR","ESTA SEGURO DE ANULAR FACTURA?","NO","YES|NO","QUESTION",0)
IF respuesta = 'YES' THEN
EXECUTE upcomando1 USING encabezado.factura_no
EXECUTE upcomando2 USING encabezado.factura_no,fecha1
EXECUTE upcomando3 USING encabezado.factura_no,encabezado.codigo_id
CALL err_mensajes(82)
DISPLAY "ANULADA" TO estado
ELSE
CONTINUE DIALOG
END IF
END IF}
ON ACTION imprime
CALL impresion_fact()
AFTER FIELD factura_no
IF encabezado.factura_no IS NOT NULL THEN
EXECUTE comand1 USING encabezado.factura_no INTO encabezado.factura_no,
encabezado.fecha_factura,
pfecha,
encabezado.cond_pago,
encabezado.codigo_id,
encabezado.nombre_cliente,
encabezado.bruto,
encabezado.descuento,
encabezado.itbis,
encabezado.sub_total,
encabezado.neto,
encabezado.estado,
pdepartamento,
ptipo
IF STATUS = NOTFOUND THEN
CALL err_mensajes(3)
NEXT FIELD factura_no
END IF
DISPLAY BY NAME encabezado.*,pfecha
IF estado = 'M' THEN
LET selec1 =
"SELECT a.id_producto,a.descripcion,a.cantidad,a.precio,a.descuento,'0',a.itbis, ",
" '0',a.valor ",
" FROM puntoventas.dbo.vetb00003 a ",
"WHERE a.factura = ",encabezado.factura_no
PREPARE comand2 FROM selec1
DECLARE busca_d CURSOR FOR comand2
LET idx1 = 1
FOREACH busca_d INTO detalle[idx1].*
LET idx1 = idx1 + 1
END FOREACH
CALL set_count(idx1-1)
DISPLAY ARRAY detalle TO record2.*
BEFORE DISPLAY
LET idx1=arr_curr()
LET detalle[idx1].valor_desc = (detalle[idx1].cantidad * detalle[idx1].precio)
* (detalle[idx1].ddescuento/100)
LET detalle[idx1].valor_itbis = ((detalle[idx1].cantidad * detalle[idx1].precio) -
detalle[idx1].valor_desc)
EXIT DISPLAY
END DISPLAY
END IF
END IF
AFTER FIELD codigo_id
IF encabezado.codigo_id IS NOT NULL THEN
LOCATE foto_empleado IN MEMORY
SELECT ISNULL(RTRIM(a.nom1_emp),' ')+' '+ISNULL(RTRIM(a.nom2_emp),' ')+
' '+ ISNULL(RTRIM(a.apell1_emp),' ')+' '+
ISNULL(RTRIM(a.apell2_emp),' '),a.departamento,a.nivel_emp,
a.cod_puesto,a.nomina,a.credito,a.foto_empleado
INTO encabezado.nombre_cliente,pdepartamento,pnivel_Emp,pcod_puesto,
ptipo,pcredito,foto_empleado
FROM adtb00003 a
WHERE num_emp = encabezado.codigo_id AND a.status_t IS NULL
IF STATUS = NOTFOUND THEN
CALL err_mensajes(3)
NEXT FIELD codigo_id
END IF
IF pcredito = "NO" THEN
CALL fgl_winmessage("ERROR","NO ES PERMITIDO FACTURAR A ESTE EMPLEADO, FAVOR DE COMUNICARSE CON NOMINA","INFO")
NEXT FIELD codigo_id
END IF
# '.\\TMP\\',
LET ruta_foto ='.\\TMP\\', encabezado.codigo_id USING "<<<<<",'.jpg'
DISPLAY "ruta ",ruta_foto
CALL foto_empleado.writeFile(ruta_foto)
DISPLAY ruta_foto TO foto
DISPLAY BY NAME encabezado.nombre_cliente
IF fecha1 IS NULL THEN
CALL fgl_Winmessage("ERROR","FECHA INICIAL DE LA NOMINA ESTA EN BLANCO, FAVOR COMUNICARSE EN NOMINA","INFO")
NEXT FIELD codigo_id
END IF
DISPLAY "fechas ",pfecha," ",fecha1
EXECUTE suma_facturas INTO balance USING encabezado.codigo_id,pfecha,fecha1
DISPLAY BY NAME balance
LET estado = 'N'
END IF
AFTER INPUT
IF encabezado.cond_pago= 2 THEN
IF encabezado.codigo_id IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD codigo_id
END IF
END IF
IF pfecha IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD codigo_id
END IF
END INPUT
# DETALLE PRODUCTOS
INPUT ARRAY detalle FROM record2.* ATTRIBUTE(WITHOUT DEFAULTS)
BEFORE INPUT
LET selec1 =
" SELECT a.descripcion,a.itbis ",
"FROM puntoventas.dbo.iptb00002 a ",
"WHERE a.id_producto = ? "
PREPARE comand3 FROM selec1
LET scr_l = scr_line()
LET detalle[1].cantidad = 1
LET detalle[1].codigo_prod=1
LET detalle[1].valor_desc=0
LET detalle[1].pitbis=0
IF detalle[1].codigo_prod IS NOT NULL THEN
EXECUTE comand3 USING detalle[1].codigo_prod INTO detalle[1].descripcion,
detalle[1].pitbis
IF STATUS = NOTFOUND THEN
CALL err_mensajes(3)
NEXT FIELD codigo_prod
ELSE
DISPLAY detalle[1].descripcion TO record2[scr_l].descripcion
DISPLAY detalle[1].pitbis TO record2[scr_l].pitbis
NEXT FIELD precio
END IF
END IF
NEXT FIELD precio
{ ON ACTION busca_tems
LET idx = arr_curr()
LET scr_l = scr_line()
CALL busca_articulos('N',' ') RETURNING detalle[idx].codigo_prod,detalle[idx].descripcion,
detalle[idx].pitbis
DISPLAY detalle[idx].codigo_prod TO record2[scr_l].codigo_prod
DISPLAY detalle[idx].descripcion TO record2[scr_l].descripcion
NEXT FIELD cantidad}
AFTER FIELD codigo_prod
LET idx = arr_curr()
LET scr_l = scr_line()
IF detalle[idx].codigo_prod IS NOT NULL THEN
EXECUTE comand3 USING detalle[idx].codigo_prod INTO detalle[idx].descripcion,
detalle[idx].pitbis
IF STATUS = NOTFOUND THEN
CALL err_mensajes(3)
NEXT FIELD codigo_prod
ELSE
DISPLAY detalle[idx].descripcion TO record2[scr_l].descripcion
DISPLAY detalle[idx].pitbis TO record2[scr_l].pitbis
NEXT FIELD cantidad
END IF
END IF
AFTER FIELD descripcion
IF detalle[idx].descripcion IS NOT NULL THEN
# WHENEVER ERROR CONTINUE
EXECUTE comand3 USING detalle[idx].descripcion INTO detalle[idx].descripcion,
detalle[idx].pitbis
IF STATUS < 0 THEN
CALL busca_articulos('A',detalle[idx].descripcion)RETURNING detalle[idx].codigo_prod,detalle[idx].descripcion,
detalle[idx].pitbis
ELSE
DISPLAY detalle[idx].descripcion TO record2[scr_l].descripcion
DISPLAY detalle[idx].pitbis TO record2[scr_l].pitbis
END IF
END IF
AFTER FIELD cantidad
NEXT FIELD precio
AFTER FIELD precio
CALL calcula_valor(arr_count())
NEXT FIELD ddescuento
AFTER ROW
LET idx = arr_curr()
LET scr_l = scr_line()
IF detalle[idx].valor_desc IS NULL THEN
LET detalle[idx].valor_desc=0
END IF
IF detalle[idx].valor_itbis IS NULL THEN
LET detalle[idx].valor_itbis=0
END IF
IF detalle[idx].cantidad IS NOT NULL THEN
LET detalle[idx].valor = detalle[idx].cantidad * detalle[idx].precio
IF detalle[idx].ddescuento IS NOT NULL THEN
LET detalle[idx].valor_desc = detalle[idx].valor * (detalle[idx].ddescuento/100)
LET detalle[idx].valor = detalle[idx].valor - detalle[idx].valor_desc
END IF
IF detalle[idx].pitbis > 0 THEN
LET detalle[idx].valor_itbis = (detalle[idx].cantidad * detalle[idx].precio) - detalle[idx].valor_desc
LET detalle[idx].valor_itbis =detalle[idx].valor_itbis * (detalle[idx].pitbis / 100)
END IF
LET detalle[idx].valor = detalle[idx].valor + detalle[idx].valor_itbis
DISPLAY detalle[idx].pitbis TO record2[scr_l].pitbis
DISPLAY detalle[idx].valor TO record2[scr_l].valor
DISPLAY detalle[idx].valor_itbis TO record2[scr_l].valor_itbis
DISPLAY detalle[idx].valor_desc TO record2[scr_l].valor_desc
END IF
LET encabezado.bruto=0
LET encabezado.descuento=0
LET encabezado.itbis=0
LET encabezado.neto=0
LET encabezado.sub_total=0
FOR idx1 =1 TO arr_count()
IF detalle[idx1].valor IS NOT NULL THEN
IF detalle[idx1].valor_desc IS NULL THEN
LET detalle[idx1].valor_desc = 0
END IF
IF detalle[idx1].valor_itbis IS NULL THEN
LET detalle[idx1].valor_itbis =0
END IF
LET encabezado.bruto = (detalle[idx1].cantidad * detalle[idx1].precio) + encabezado.bruto
LET encabezado.descuento =detalle[idx1].valor_desc + encabezado.descuento
LET encabezado.itbis = detalle[idx1].valor_itbis + encabezado.itbis
LET encabezado.sub_total = encabezado.bruto - encabezado.descuento
LET encabezado.neto = encabezado.sub_total +encabezado.itbis
ELSE
IF detalle[idx1].codigo_prod IS NOT NULL THEN
CALL err_mensajes(16)
NEXT FIELD codigo_prod
END IF
END IF
END FOR
DISPLAY BY NAME encabezado.bruto,encabezado.descuento,encabezado.itbis,
encabezado.neto,encabezado.descuento,encabezado.sub_total
BEFORE FIELD codigo_prod
IF estado <> "N" THEN
NEXT FIELD codigo_id
END IF
ON KEY (F12)
IF estado = 'N' THEN
EXECUTE suma_facturas INTO balance USING encabezado.codigo_id,pfecha,fecha1
DISPLAY BY NAME balance
IF balance+encabezado.neto > limite_cr THEN
CALL fgl_winmessage("ERROR","ESTE EMPLEADO TIENE SU LIMITE DE CREDITO AGOTADO, NO PUEDE REALIZAR FACTURA","INFO")
NEXT FIELD precio
END IF
EXECUTE comando2 INTO encabezado.factura_no
IF encabezado.factura_no IS NULL THEN
LET encabezado.factura_no = 0
END IF
LET encabezado.factura_no = encabezado.factura_no + 1
DISPLAY BY NAME encabezado.factura_no
#WHENEVER ERROR CONTINUE
BEGIN WORK
FOR idx1 = 1 TO arr_count()
IF detalle[idx1].codigo_prod IS NOT NULL THEN
IF detalle[idx1].valor IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD cantidad
END IF
EXECUTE inscomando USING encabezado.factura_no,detalle[idx1].codigo_prod,detalle[idx1].descripcion,detalle[idx1].cantidad,detalle[idx1].precio,
detalle[idx1].ddescuento,detalle[idx1].pitbis,detalle[idx1].valor
IF STATUS < 0 THEN
ROLLBACK WORK
CALL err_mensajes(SQLCA.sqlcode)
EXIT FOR
RETURN
END IF
END IF
END FOR
IF encabezado.cond_pago = 2 THEN
INSERT INTO notb00008 (num_nomi,tipo_emp,clase_mov,fecha,num_emp,departamento,nivel_emp,cod_puesto,cod_mov,cantidad,valor,us_crea,fech_crea)
VALUES (encabezado.factura_no,ptipo,'F',fecha1,encabezado.codigo_id,pdepartamento,pnivel_emp,pcod_puesto,'19','0',encabezado.neto,usuarios,getdate())
IF STATUS < 0 THEN
ROLLBACK WORK
CALL err_mensajes(SQLCA.sqlcode)
RETURN
END IF
INSERT INTO notb00011 (num_doc,fecha,cod_mov,monto,num_emp,departamento,nivel_emp,cod_puesto,us_crea,fech_crea)
VALUES (encabezado.factura_no,encabezado.fecha_factura,'19',encabezado.neto,encabezado.codigo_id,
pdepartamento,pnivel_emp,pcod_puesto,usuarios,getdate())
IF STATUS < 0 THEN
ROLLBACK WORK
CALL err_mensajes(SQLCA.sqlcode)
RETURN
END IF
END IF
IF encabezado.nombre_cliente IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD nombre_cliente
END IF
EXECUTE inscomando1 USING encabezado.factura_no,encabezado.fecha_factura,pfecha,
encabezado.codigo_id,encabezado.cond_pago,
encabezado.nombre_cliente,
encabezado.bruto,encabezado.descuento,
encabezado.itbis,encabezado.sub_total,encabezado.neto,
usuarios
IF STATUS < 0 THEN
ROLLBACK WORK
CALL err_mensajes(SQLCA.sqlcode)
RETURN
ELSE
COMMIT WORK
# REPORTE
LET balance = balance + encabezado.neto
CALL impresion_fact()
CALL impresion_fact()
CALL detalle.clear()
INITIALIZE encabezado.* TO NULL
LET encabezado.cond_pago=2
LET encabezado.fecha_factura=TODAY
DISPLAY BY NAME encabezado.*
NEXT FIELD codigo_id
END IF
END IF
CONTINUE DIALOG
AFTER INPUT
IF detalle[idx].descripcion IS NULL AND detalle[idx].codigo_prod IS NOT NULL THEN
CALL err_mensajes(16)
NEXT FIELD codigo_prod
END IF
IF detalle[idx].descripcion IS NOT NULL THEN
IF detalle[idx].cantidad IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD cantidad
END IF
IF detalle[idx].precio IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD precio
END IF
END IF
END INPUT
ON ACTION CANCEL
EXIT DIALOG
END DIALOG
IF INT_FLAG THEN
LET INT_FLAG = FALSE
RETURN
END IF
END FUNCTION
REPORT factura(x,z,xdepartamento)
DEFINE x RECORD
factura_no INT,
fecha_factura DATE,
cond_pago SMALLINT,
codigo_id INT,
nombre_cliente VARCHAR(90),
bruto DEC(12,2),
descuento DEC(12,2),
itbis DEC(12,2),
sub_total DEC(12,2),
neto DEC(12,2),
estado VARCHAR(30)
END RECORD,
xdepartamento SMALLINT
DEFINE z RECORD
codigo_prod CHAR(25),
descripcion VARCHAR(80),
cantidad DEC(12,2),
precio DEC(12,2),
ddescuento DEC(12,2),
valor_desc DEC(12,2),
pitbis DEC(12,2),
valor_itbis DEC(12,2),
valor DEC(12,2)
END RECORD,
hora VARCHAR(16),
descripcion_dpto CHAR(30)
FORMAT
FIRST PAGE HEADER
LET descripcion_dpto = NULL
SELECT a.nom_dpto INTO descripcion_dpto FROM adtb00001 a
WHERE a.departamento = xdepartamento
IF STATUS = NOTFOUND THEN
LET descripcion_dpto = "NO EXISTE"
LET STATUS = 0
END IF
LET hora =CURRENT YEAR TO MINUTE
PRINTX nombre_cia,hora,pfecha,x.factura_no,xdepartamento,descripcion_dpto
ON EVERY ROW
PRINTX x.fecha_factura,x.nombre_cliente,x.codigo_id,x.bruto,x.descuento,x.itbis,
x.sub_total,x.neto,z.*,balance
END REPORT
FUNCTION impresion_fact()
LET r_filename = "veprmt022.4rp"
# LET preview = 0
LET r_output = 'SVG'
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
CALL fgl_report_selectDevice(r_output) -- changing default
IF preview = 0 THEN
CALL fgl_report_selectPreview(1)
CALL fgl_report_configureSVGPreview("PrintOnNamedPrinter")
CALL fgl_report_setSVGPrinterName("EPSON TM-T20II Receipt")
CALL fgl_report_setSVGCopies(2)
ELSE
CALL fgl_report_selectPreview(preview)
END IF
LET handler = fgl_report_commitCurrentSettings() -- commit changes
START REPORT factura TO XML HANDLER HANDLER
FOR idx = 1 TO arr_count()
IF detalle[idx].codigo_prod IS NOT NULL THEN
OUTPUT TO REPORT factura(encabezado.*,detalle[idx].*,Pdepartamento)
END IF
END FOR
FINISH REPORT factura
END IF
END FUNCTION
FUNCTION relacion()
DEFINE fecha_inicial,fecha_final DATE,
criterio VARCHAR(100),
select2 VARCHAR(500),
registro RECORD
factura INT,
fecha_factura CHAR(10),
fecha_nomina CHAR(10),
codigo_id INT,
nombre_cliente VARCHAR(60),
bruto DEC(12,2),
descuento DEC(12,2),
itbis DEC(12,2),
sub_total DEC(12,2),
neto DEC(12,2),
estado CHAR(20),
condicion VARCHAR(30)
END RECORD,
primera CHAR(1),
impresion CHAR(2),
forma_reporte varchar(10)
OPEN WINDOW w2 WITH FORM "vepfmrp001"
DIALOG ATTRIBUTE (FIELD ORDER FORM, UNBUFFERED)
INPUT BY NAME fecha_inicial,fecha_final,preview,forma_reporte
BEFORE INPUT
LET fecha_final = TODAY
DISPLAY BY NAME fecha_final
AFTER INPUT
IF fecha_final IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD fecha_final
END IF
IF fecha_inicial IS NULL THEN
CALL err_mensajes(16)
NEXT FIELD fecha_inicial
END IF
END INPUT
CONSTRUCT BY NAME criterio ON a.codigo_id,a.cond_pago
ON ACTION impresion
IF forma_reporte = "Detalle" THEN
LET select2 =
" SELECT a.factura,CONVERT(CHAR(10),a.fecha_factura,103),CONVERT(CHAR(10),a.fecha_nomina,103),",
" a.codigo_id,a.nombre_cliente,a.bruto,a.descuento,a.itbis,a.sub_total,a.neto,",
" a.status_t,
CASE a.cond_pago WHEN 1 THEN 'OTRAS FACTURAS' ELSE 'CREDITO EMPLEADOS' END ",
" FROM puntoventas.dbo.vetb00002 a WHERE ",
" a.fecha_factura between ? and ? AND ",criterio CLIPPED,
" ORDER BY a.cond_pago,a.factura"
ELSE
LET select2 =
" SELECT '0',' ',' ',",
" a.codigo_id,CAST(a.codigo_id as varchar)+'-'+a.nombre_cliente,SUM(a.bruto),SUM(a.descuento),SUM(a.itbis),SUM(a.sub_total),SUM(a.neto),",
" ' ',
' ' ",
" FROM puntoventas.dbo.vetb00002 a WHERE ",
" a.fecha_factura between ? and ? AND ",criterio CLIPPED,
" AND a.status_t IS NULL ",
" GROUP BY a.codigo_id,a.nombre_cliente ",
" ORDER BY a.codigo_id"
END IF
PREPARE relacion1 FROM select2
DECLARE busca_r CURSOR FOR relacion1
OPEN busca_r USING fecha_inicial,fecha_final
LET primera = 'S'
LET impresion = "NO"
FOREACH busca_r INTO registro.*
IF STATUS = NOTFOUND THEN
LET impresion = 'NO'
CALL err_mensajes(3)
EXIT FOREACH
END IF
LET impresion = 'SI'
IF primera = 'S' THEN
LET r_filename = "veprrp001.4rp"
# LET preview = 1
LET r_output = 'SVG'
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
CALL fgl_report_selectDevice(r_output)
-- changing default
IF preview = 0 THEN
CALL fgl_report_selectPreview(1) -- changing default
CALL fgl_report_configureSVGPreview("PrintOnDefaultPrinter")
ELSE
CALL fgl_report_selectPreview(preview)
END IF
LET handler = fgl_report_commitCurrentSettings() -- commit changes
ELSE
EXIT PROGRAM
END IF
START REPORT r_registros TO XML HANDLER HANDLER
END IF
LET primera = 'N'
IF registro.estado = 'E' THEN
LET registro.nombre_cliente = registro.nombre_cliente[1,15]," NULA"
END IF
OUTPUT TO REPORT r_registros(registro.*,fecha_inicial,fecha_final)
END FOREACH
IF impresion = "SI" THEN
FINISH REPORT r_registros
END IF
ON ACTION CANCEL
LET INT_FLAG = FALSE
EXIT DIALOG
EXIT DIALOG
END CONSTRUCT
END DIALOG
CLOSE WINDOW w2
END FUNCTION
REPORT r_registros(x,xfecha1,xfecha2)
DEFINE x RECORD
factura INT,
fecha_factura CHAR(10),
fecha_nomina CHAR(10),
codigo_id INT,
nombre_cliente VARCHAR(60),
bruto DEC(12,2),
descuento DEC(12,2),
itbis DEC(12,2),
sub_total DEC(12,2),
neto DEC(12,2),
estado CHAR(20),
condicion VARCHAR(30)
END RECORD,
hora CHAR(16),
total_condicion,total_venta DEC(12,2),
xfecha1 ,
xfecha2 CHAR(10)
ORDER BY x.condicion,x.factura
FORMAT
FIRST PAGE HEADER
LET hora = CURRENT YEAR TO MINUTE
#PRINTX nombre_cia,hora,x.fecha_inicial,x.fecha_final
LET total_venta = 0
BEFORE GROUP OF x.condicion
LET total_condicion = 0
ON EVERY ROW
IF x.estado IS NULL OR x.estado = ' ' THEN
LET total_venta = total_venta + x.neto
LET total_condicion = total_condicion + x.neto
END IF
PRINTX x.*,nombre_cia,hora,xfecha1,xfecha2
AFTER GROUP OF x.condicion
PRINTX total_condicion
ON LAST ROW
PRINTX total_venta
END REPORT
FUNCTION calcula_valor(cuenta_fila)
DEFINE cuenta_fila SMALLINT
LET encabezado.bruto=0
LET encabezado.descuento=0
LET encabezado.itbis=0
LET encabezado.neto=0
LET encabezado.sub_total=0
FOR idx1 =1 TO cuenta_fila
IF detalle[idx1].valor_desc IS NULL THEN
LET detalle[idx1].valor_desc=0
END IF
IF detalle[idx1].valor_itbis IS NULL THEN
LET detalle[idx1].valor_itbis=0
END IF
IF detalle[idx1].cantidad IS NOT NULL THEN
LET detalle[idx1].valor = detalle[idx1].cantidad * detalle[idx1].precio
IF detalle[idx1].ddescuento IS NOT NULL THEN
LET detalle[idx1].valor_desc = detalle[idx1].valor * (detalle[idx1].ddescuento/100)
LET detalle[idx1].valor = detalle[idx1].valor - detalle[idx1].valor_desc
END IF
IF detalle[idx1].pitbis > 0 THEN
LET detalle[idx1].valor_itbis = (detalle[idx1].cantidad * detalle[idx].precio) - detalle[idx1].valor_desc
LET detalle[idx1].valor_itbis =detalle[idx1].valor_itbis * (detalle[idx1].pitbis / 100)
END IF
LET detalle[idx1].valor = detalle[idx1].valor + detalle[idx1].valor_itbis
DISPLAY detalle[idx1].pitbis TO record2[scr_l].pitbis
DISPLAY detalle[idx1].valor TO record2[scr_l].valor
DISPLAY detalle[idx1].valor_itbis TO record2[scr_l].valor_itbis
DISPLAY detalle[idx1].valor_desc TO record2[scr_l].valor_desc
END IF
IF detalle[idx1].valor IS NOT NULL THEN
IF detalle[idx1].valor_desc IS NULL THEN
LET detalle[idx1].valor_desc = 0
END IF
IF detalle[idx1].valor_itbis IS NULL THEN
LET detalle[idx1].valor_itbis =0
END IF
LET encabezado.bruto = (detalle[idx1].cantidad * detalle[idx1].precio) + encabezado.bruto
LET encabezado.descuento =detalle[idx1].valor_desc + encabezado.descuento
LET encabezado.itbis = detalle[idx1].valor_itbis + encabezado.itbis
LET encabezado.sub_total = encabezado.bruto - encabezado.descuento
LET encabezado.neto = encabezado.sub_total +encabezado.itbis
END IF
END FOR
DISPLAY BY NAME encabezado.bruto,encabezado.itbis,
encabezado.neto,encabezado.descuento,encabezado.sub_total
END FUNCTION